perl 2.0 (no announcement message available)

[p5sagit/p5-mst-13.2.git] / t / op.each

diff --git a/t/op.each b/t/op.each
index 8e91950..5a445ed 100644 (file)
--- a/t/op.each
+++ b/t/op.each
@@ -1,8 +1,8 @@
 #!./perl
 
-# $Header: op.each,v 1.0 87/12/18 13:13:23 root Exp $
+# $Header: op.each,v 2.0 88/06/05 00:13:38 root Exp $
 
-print "1..2\n";
+print "1..3\n";
 
 $h{'abc'} = 'ABC';
 $h{'def'} = 'DEF';
@@ -48,3 +48,6 @@ while (($key,$value) = each(h)) {
 }
 
 if ($i == 30) {print "ok 2\n";} else {print "not ok 2\n";}
+
+@keys = ('blurfl', keys(h), 'dyick');
+if ($#keys == 31) {print "ok 3\n";} else {print "not ok 3\n";}