remote debug of smoke-test setup

This commit is contained in:
Colin Kuskie 2006-07-29 22:28:04 +00:00
parent e84c58bd66
commit f7b4367205

View file

@ -33,7 +33,8 @@ my $storage = WebGUI::Storage->createTemp($session);
$storage->addFileFromScalar('goodFile', $goodFile); $storage->addFileFromScalar('goodFile', $goodFile);
$storage->addFileFromScalar('twoLines', $twoLines); $storage->addFileFromScalar('twoLines', $twoLines);
$storage->addFileFromScalar('unreadableFile', 'The contents of this file are not readable'); $storage->addFileFromScalar('unreadableFile', 'The contents of this file are not readable');
chmod 0111, $storage->getPath('unreadableFile'); chmod 0111, $storage->getPath('unreadableFile')
or diag($!);
my @testSets = ( my @testSets = (
{ {
@ -99,7 +100,7 @@ plan tests => $numTests;
foreach my $testSet (@testSets) { foreach my $testSet (@testSets) {
my $output = WebGUI::Macro::Include::process($session, $testSet->{file}); my $output = WebGUI::Macro::Include::process($session, $testSet->{file});
is($output, $testSet->{output}, $testSet->{comment} ); my $passed = is($output, $testSet->{output}, $testSet->{comment} . ":" .$testSet->{file});
} }
END { END {