diff options
Diffstat (limited to 't/op.push')
| -rw-r--r-- | t/op.push | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -1,11 +1,11 @@ #!./perl -# $Header: op.push,v 2.0 88/06/05 00:14:23 root Exp $ +# $Header: op.push,v 3.0 89/10/18 15:30:48 lwall Locked $ print "1..2\n"; @x = (1,2,3); push(@x,@x); -if (join(x,':') eq '1:2:3:1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} +if (join(':',@x) eq '1:2:3:1:2:3') {print "ok 1\n";} else {print "not ok 1\n";} push(x,4); -if (join(x,':') eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} +if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} |