diff options
Diffstat (limited to 't/op.magic')
| -rw-r--r-- | t/op.magic | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/t/op.magic b/t/op.magic index ab8dbeec3d..9468a35573 100644 --- a/t/op.magic +++ b/t/op.magic @@ -1,10 +1,10 @@ #!./perl -# $Header: op.magic,v 2.0 88/06/05 00:14:11 root Exp $ +# $Header: op.magic,v 3.0 89/10/18 15:29:54 lwall Locked $ $| = 1; # command buffering -print "1..4\n"; +print "1..5\n"; eval '$ENV{"foo"} = "hi there";'; # check that ENV is inited inside eval if (`echo \$foo` eq "hi there\n") {print "ok 1\n";} else {print "not ok 1\n";} @@ -24,3 +24,8 @@ system './perl', '-e', '$SIG{"INT"} = "DEFAULT"; kill 2,$$; print "not ok\n";', '-e', 'sub ok3 { print "ok 3\n" if pop(@_) eq "INT"; }'; + +@val1 = @ENV{keys(%ENV)}; # can we slice ENV? +@val2 = values(%ENV); + +print join(':',@val1) eq join(':',@val2) ? "ok 5\n" : "not ok 5\n"; |