oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Also test for STYLE tags when making the DataForm form view.

Browse source
This commit is contained in:
Colin Kuskie 2010-09-21 14:28:04 -07:00
parent f34f8e59bd
commit 5faa77b2fb
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
t/Asset/Wobject/DataForm/viewForm.t
View file

@ -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