set explicit check for html,head and body tags to useEmptyStyle to keep an eye on the template

This commit is contained in:
Colin Kuskie 2007-02-28 23:17:20 +00:00
parent 211e9bd8a7
commit 84716b87ed

View file

@ -19,7 +19,7 @@ use WebGUI::Asset;
use WebGUI::VersionTag;
use WebGUI;
use Test::More tests => 56; # increment this value for each test you create
use Test::More tests => 57; # increment this value for each test you create
use Test::Deep;
my $session = WebGUI::Test->session;
@ -228,6 +228,10 @@ like($styled,
qr/PERSONAL STYLE TEMPLATE/,
'process: personalStyleTemplate overrides submitted template');
unlike($styled,
qr{(?i)</?(html|head|body)>},
'useEmptyStyle does not have html, head or body tags');
my $head = $styled;
$head =~ s/(^HEAD=.+$)/$1/s;