diff options
Diffstat (limited to 't/op.each')
| -rw-r--r-- | t/op.each | 12 |
1 files changed, 6 insertions, 6 deletions
@@ -1,13 +1,13 @@ #!./perl -# $Header: op.each,v 2.0 88/06/05 00:13:38 root Exp $ +# $Header: op.each,v 3.0 89/10/18 15:28:48 lwall Locked $ print "1..3\n"; $h{'abc'} = 'ABC'; $h{'def'} = 'DEF'; -$h{'jkl'} = 'JKL'; -$h{'xyz'} = 'XYZ'; +$h{'jkl','mno'} = "JKL\034MNO"; +$h{'a',2,3,4,5} = join("\034",'A',2,3,4,5); $h{'a'} = 'A'; $h{'b'} = 'B'; $h{'c'} = 'C'; @@ -35,8 +35,8 @@ $h{'x'} = 'X'; $h{'y'} = 'Y'; $h{'z'} = 'Z'; -@keys = keys(h); -@values = values(h); +@keys = keys %h; +@values = values %h; if ($#keys == 29 && $#values == 29) {print "ok 1\n";} else {print "not ok 1\n";} @@ -49,5 +49,5 @@ while (($key,$value) = each(h)) { if ($i == 30) {print "ok 2\n";} else {print "not ok 2\n";} -@keys = ('blurfl', keys(h), 'dyick'); +@keys = ('blurfl', keys(%h), 'dyick'); if ($#keys == 31) {print "ok 3\n";} else {print "not ok 3\n";} |