projects
/
platform
/
upstream
/
perl.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
a4268c0
)
One more test for $^S.
author
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 12 Jun 2001 12:37:36 +0000
(12:37 +0000)
committer
Jarkko Hietaniemi
<jhi@iki.fi>
Tue, 12 Jun 2001 12:37:36 +0000
(12:37 +0000)
p4raw-id: //depot/perl@10532
t/op/magic.t
patch
|
blob
|
history
diff --git
a/t/op/magic.t
b/t/op/magic.t
index
80b23f0
..
c8b2d1c
100755
(executable)
--- a/
t/op/magic.t
+++ b/
t/op/magic.t
@@
-27,7
+27,7
@@
$Is_os2 = $^O eq 'os2';
$Is_Cygwin = $^O eq 'cygwin';
$PERL = ($Is_MSWin32 ? '.\perl' : './perl');
-print "1..4
0
\n";
+print "1..4
1
\n";
eval '$ENV{"FOO"} = "hi there";'; # check that ENV is inited inside eval
if ($Is_MSWin32) { ok 1, `cmd /x /c set FOO` eq "FOO=hi there\n"; }
@@
-249,4
+249,5
@@
my %errs = %{"!"}; # Cause Errno.pm to be loaded at run-time
ok 38, ${"!"}{ENOENT};
ok 39, $^S == 0;
-eval { ok 40, $^S };
+eval { ok 40, $^S == 1 };
+ok 41, $^S == 0;