diff options
Diffstat (limited to 'libtests/qtest/qexc.test')
-rw-r--r-- | libtests/qtest/qexc.test | 28 |
1 files changed, 0 insertions, 28 deletions
diff --git a/libtests/qtest/qexc.test b/libtests/qtest/qexc.test deleted file mode 100644 index 350ceba8..00000000 --- a/libtests/qtest/qexc.test +++ /dev/null @@ -1,28 +0,0 @@ -#!/usr/bin/env perl - -require 5.008; -BEGIN { $^W = 1; } -use strict; - -chdir("qexc") or die "chdir qexc failed: $!\n"; - -require TestDriver; - -my $td = new TestDriver('qexc'); - -my @tests = - (['general exception', 2], - ['internal error', 3], - ['system exception', 2], - ); - -for (my $i = 0; $i < scalar(@tests); ++$i) -{ - $td->runtest($tests[$i]->[0], - {$td->COMMAND => "qexc $i"}, - {$td->FILE => "test$i.out", - $td->EXIT_STATUS => $tests[$i]->[1]}, - $td->NORMALIZE_NEWLINES); -} - -$td->report(scalar(@tests)); |