From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 1 Aug 2001 13:38:29 +0000 (+0000)
Subject: Need to know the number of tests.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=0ab780528073f06895a2098a912e0618adb3b12e;p=p5sagit%2Fp5-mst-13.2.git

Need to know the number of tests.

p4raw-id: //depot/perl@11533
---

diff --git a/t/run/exit.t b/t/run/exit.t
index 7b91cf3..d9fe8b4 100644
--- a/t/run/exit.t
+++ b/t/run/exit.t
@@ -18,10 +18,11 @@ sub run {
     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;