diff options
Diffstat (limited to 'libtests/qtest/qexc.test')
| -rw-r--r-- | libtests/qtest/qexc.test | 8 |
1 files changed, 2 insertions, 6 deletions
diff --git a/libtests/qtest/qexc.test b/libtests/qtest/qexc.test index b8632b9b..350ceba8 100644 --- a/libtests/qtest/qexc.test +++ b/libtests/qtest/qexc.test @@ -14,18 +14,14 @@ my @tests = (['general exception', 2], ['internal error', 3], ['system exception', 2], - ['library exception', 3, "uncaught exception: .+\n"], # fails on VC7? ); for (my $i = 0; $i < scalar(@tests); ++$i) { - my $output = +((-f "test$i.out") - ? {$td->FILE => "test$i.out"} - : {$td->REGEXP => $tests[$i]->[2]}); - $output->{$td->EXIT_STATUS} = $tests[$i]->[1]; $td->runtest($tests[$i]->[0], {$td->COMMAND => "qexc $i"}, - $output, + {$td->FILE => "test$i.out", + $td->EXIT_STATUS => $tests[$i]->[1]}, $td->NORMALIZE_NEWLINES); } |