fix this piece of crap test, again.

This commit is contained in:
Colin Kuskie 2009-07-17 01:45:50 +00:00
parent 69ab867db9
commit 713c43976b

View file

@ -29,6 +29,7 @@ use File::Path;
use File::Temp qw/tempfile tempdir/;
use Path::Class;
use Test::Deep;
use Test::Differences;
#----------------------------------------------------------------------------
# Init
@ -428,7 +429,8 @@ is($@, '', "exportWriteFile works for grandchild");
ok(-e $grandChild->exportGetUrlAsPath->absolute->stringify, "exportWriteFile actually writes the grandchild file");
# finally, check its contents
eval { $content = WebGUI::Test->getPage($grandChild, 'exportHtml_view', { user => WebGUI::User->new($session, 1) }) };
$session->style->sent(0);
eval { $content = WebGUI::Test->getPage($grandChild, 'exportHtml_view') };
is(scalar $grandChild->exportGetUrlAsPath->absolute->slurp, $content, "exportWriteFile puts correct content in exported grandchild");
# test different extensions