diff options
Diffstat (limited to 't/op.delete')
| -rw-r--r-- | t/op.delete | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/t/op.delete b/t/op.delete index 24315a5611..3c5fe320f0 100644 --- a/t/op.delete +++ b/t/op.delete @@ -1,6 +1,6 @@ #!./perl -# $Header: op.delete,v 2.0 88/06/05 00:13:30 root Exp $ +# $Header: op.delete,v 3.0 89/10/18 15:28:36 lwall Locked $ print "1..6\n"; @@ -10,15 +10,15 @@ $foo{3} = 'c'; $foo = delete $foo{2}; -if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1\n";} -if ($foo{2} eq '') {print "ok 2\n";} else {print "not ok 2\n";} +if ($foo eq 'b') {print "ok 1\n";} else {print "not ok 1 $foo\n";} +if ($foo{2} eq '') {print "ok 2\n";} else {print "not ok 2 $foo{2}\n";} if ($foo{1} eq 'a') {print "ok 3\n";} else {print "not ok 3\n";} if ($foo{3} eq 'c') {print "ok 4\n";} else {print "not ok 4\n";} $foo = join('',values(foo)); if ($foo eq 'ac' || $foo eq 'ca') {print "ok 5\n";} else {print "not ok 5\n";} -foreach $key (keys(foo)) { +foreach $key (keys foo) { delete $foo{$key}; } |