diff options
Diffstat (limited to 't/op.push')
| -rw-r--r-- | t/op.push | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/t/op.push b/t/op.push new file mode 100644 index 0000000000..01cbfbf6cf --- /dev/null +++ b/t/op.push @@ -0,0 +1,11 @@ +#!./perl + +# $Header: op.push,v 1.0 87/12/18 13:14:10 root Exp $ + +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";} +push(x,4); +if (join(x,':') eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} |