diff options
| author | Larry Wall <larry@netlabs.com> | 1993-12-10 00:00:00 +0000 |
|---|---|---|
| committer | Larry Wall <larry@netlabs.com> | 1993-12-10 00:00:00 +0000 |
| commit | ed6116ce9b9d13712ea252ee248b0400653db7f9 (patch) | |
| tree | 348e8de37401fa4381f6bfe0989abef2e3b409e0 /t/op/magic.t | |
| parent | 9bbf408117c16189b372e6657c9e5a15d01ea504 (diff) | |
| download | perl-ed6116ce9b9d13712ea252ee248b0400653db7f9.tar.gz | |
perl 5.0 alpha 5
[editor's note: the sparc executables have not been included,
and emacs backup files and other cruft such as patch backup files have
been removed. This was reconstructed from a tarball found on the
September 1994 InfoMagic CD]
Diffstat (limited to 't/op/magic.t')
| -rwxr-xr-x | t/op/magic.t | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/t/op/magic.t b/t/op/magic.t index 83420d2aab..3243c625ce 100755 --- a/t/op/magic.t +++ b/t/op/magic.t @@ -4,7 +4,7 @@ $| = 1; # command buffering -print "1..5\n"; +print "1..6\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";} @@ -40,3 +40,6 @@ END @val2 = values(%ENV); print join(':',@val1) eq join(':',@val2) ? "ok 5\n" : "not ok 5\n"; + +print @val1 > 1 ? "ok 6\n" : "not ok 6\n"; + |