diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 12:37:36 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-12 12:37:36 +0000 |
| commit | 65b8483b5f20b88f3e36de22e5236706cd8b1e3b (patch) | |
| tree | 670a7455c0e4b819ec4b60dd8c50a4fc62142e31 /t/op/magic.t | |
| parent | a4268c0aeed5c62288abc420420bbe3d0436a5b6 (diff) | |
| download | perl-65b8483b5f20b88f3e36de22e5236706cd8b1e3b.tar.gz | |
One more test for $^S.
p4raw-id: //depot/perl@10532
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 80b23f071f..c8b2d1c7bf 100755 --- 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..40\n"; +print "1..41\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; |