Change 11533 by jhi@alpha on 2001/08/01 13:38:29
Need to know the number of tests.
Affected files ...
... //depot/perl/t/run/exit.t#4 edit
Differences ...
==== //depot/perl/t/run/exit.t#4 (text) ====
Index: perl/t/run/exit.t
--- perl/t/run/exit.t.~1~ Wed Aug 1 07:45:06 2001
+++ perl/t/run/exit.t Wed Aug 1 07:45:06 2001
@@ -18,10 +18,11 @@
return system($cmd.$quote.$code.$quote);
}
-## can't use this in 'use Test::More' yet
-##my $numtests = ($^O eq 'VMS') ? 7 : 3;
+BEGIN {
+ $numtests = ($^O eq 'VMS') ? 7 : 3;
+}
-use Test::More tests => 'no_plan';
+use Test::More tests => $numtests;
my $exit, $exit_arg;
End of Patch.
