This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Need to know the number of tests.
authorJarkko Hietaniemi <jhi@iki.fi>
Wed, 1 Aug 2001 13:38:29 +0000 (13:38 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Wed, 1 Aug 2001 13:38:29 +0000 (13:38 +0000)
p4raw-id: //depot/perl@11533

t/run/exit.t

index 7b91cf3..d9fe8b4 100644 (file)
@@ -18,10 +18,11 @@ sub run {
     return system($cmd.$quote.$code.$quote);
 }
 
     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;
 
 
 my $exit, $exit_arg;