From 5faa77b2fbbae006e96b4b3a9d531c2700f381a3 Mon Sep 17 00:00:00 2001
From: Colin Kuskie <colink@perldreamer.com>
Date: Tue, 21 Sep 2010 14:28:04 -0700
Subject: [PATCH] Also test for STYLE tags when making the DataForm form view.

---
 t/Asset/Wobject/DataForm/viewForm.t | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/t/Asset/Wobject/DataForm/viewForm.t b/t/Asset/Wobject/DataForm/viewForm.t
index 81ea69b63..8cf5cd5c6 100644
--- a/t/Asset/Wobject/DataForm/viewForm.t
+++ b/t/Asset/Wobject/DataForm/viewForm.t
@@ -44,7 +44,7 @@ $df = $df->cloneFromDb;
 #----------------------------------------------------------------------------
 # Tests
 
-plan tests => 3;    # Increment this number for each test you create
+plan tests => 4;    # Increment this number for each test you create
 
 #----------------------------------------------------------------------------
 # Test getListTemplateVars
@@ -54,6 +54,7 @@ my $output = $df->view();
 
 ok $output, 'got some output';
 ok $output !~ m/<link   [^>+] href/msx, 'no CSS link tags in the output';
-ok $output !~ m/<script [^>+] src/msx, 'no JavaScript script tags with src in the output';
+ok $output !~ m/<script [^>+] src /msx, 'no JavaScript script tags with src in the output';
+ok $output !~ m/    <style>       /msx, 'no JavaScript script tags with src in the output';
 
 #vim:ft=perl