Change 11532 by jhi@alpha on 2001/08/01 13:04:31
Subject: Re: new exit tests on VMS
From: "Craig A. Berry" <[EMAIL PROTECTED]>
Date: Tue, 31 Jul 2001 12:19:29 -0500
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
... //depot/perl/t/run/exit.t#3 edit
Differences ...
==== //depot/perl/t/run/exit.t#3 (text) ====
Index: perl/t/run/exit.t
--- perl/t/run/exit.t.~1~ Wed Aug 1 07:15:05 2001
+++ perl/t/run/exit.t Wed Aug 1 07:15:05 2001
@@ -18,15 +18,41 @@
return system($cmd.$quote.$code.$quote);
}
-use Test::More tests => 3;
+## can't use this in 'use Test::More' yet
+##my $numtests = ($^O eq 'VMS') ? 7 : 3;
+
+use Test::More tests => 'no_plan';
-my $exit;
+my $exit, $exit_arg;
$exit = run('exit');
is( $exit >> 8, 0, 'Normal exit' );
-$exit = run('exit 42');
-is( $exit >> 8, 42, 'Non-zero exit' );
+if ($^O ne 'VMS') {
+
+ $exit = run('exit 42');
+ is( $exit >> 8, 42, 'Non-zero exit' );
+
+} else {
+
+# On VMS, successful returns from system() are always 0, warnings are 1,
+# errors are 2, and fatal errors are 4.
+
+ $exit = run("exit 196609"); # %CLI-S-NORMAL
+ is( $exit >> 8, 0, 'success exit' );
+
+ $exit = run("exit 196611"); # %CLI-I-NORMAL
+ is( $exit >> 8, 0, 'informational exit' );
+
+ $exit = run("exit 196608"); # %CLI-W-NORMAL
+ is( $exit >> 8, 1, 'warning exit' );
+
+ $exit = run("exit 196610"); # %CLI-E-NORMAL
+ is( $exit >> 8, 2, 'error exit' );
+
+ $exit = run("exit 196612"); # %CLI-F-NORMAL
+ is( $exit >> 8, 4, 'fatal error exit' );
+}
$exit = run('END { $? = 42 }');
is( $exit >> 8, 42, 'Changing $? in END block' );
End of Patch.
