diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-14 18:49:25 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 1998-01-14 18:49:25 +0000 |
| commit | a60c0954410db87be540ee8439afcd54350bbb8e (patch) | |
| tree | 1a39a6e0941f3c706efe727a664534cce93143ee /t/op/push.t | |
| parent | 1393e20655efb4bcc2062605bfe887dd5e634bc1 (diff) | |
| download | perl-a60c0954410db87be540ee8439afcd54350bbb8e.tar.gz | |
TIEARRAY updates - almost works ...
p4raw-id: //depot/ansiperl@424
Diffstat (limited to 't/op/push.t')
| -rwxr-xr-x | t/op/push.t | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/t/op/push.t b/t/op/push.t index 68fab66af7..f62a4e9d8e 100755 --- a/t/op/push.t +++ b/t/op/push.t @@ -22,7 +22,7 @@ die "blech" unless @tests; @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); +push(@x,4); if (join(':',@x) eq '1:2:3:1:2:3:4') {print "ok 2\n";} else {print "not ok 2\n";} $test = 3; @@ -47,3 +47,4 @@ foreach $line (@tests) { } } +1; # this file is require'd by lib/tie-stdpush.t |