diff options
| author | Stephen Potter <spp@psa.pencom.com> | 1998-02-12 11:11:05 -0600 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-20 12:20:29 +0000 |
| commit | c6aa4a325f8f7aec03423575f368826bb1e2b038 (patch) | |
| tree | 4f26fc072908cd72af68c607cb1736795f1ac67c /t/op/array.t | |
| parent | 7fd66d9d30123afaec1f02787836d8154d73e836 (diff) | |
| download | perl-c6aa4a325f8f7aec03423575f368826bb1e2b038.tar.gz | |
5.004_58, move intuition tests
p4raw-id: //depot/perl@536
Diffstat (limited to 't/op/array.t')
| -rwxr-xr-x | t/op/array.t | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/t/op/array.t b/t/op/array.t index db70c3981f..f307655ced 100755 --- a/t/op/array.t +++ b/t/op/array.t @@ -2,7 +2,7 @@ # $RCSfile: array.t,v $$Revision: 4.1 $$Date: 92/08/07 18:27:37 $ -print "1..39\n"; +print "1..40\n"; @ary = (1,2,3,4,5); if (join('',@ary) eq '12345') {print "ok 1\n";} else {print "not ok 1\n";} @@ -144,3 +144,7 @@ eval { }; print "not " unless $@ =~ /Can't multiply inherit %FIELDS/; print "ok 39\n"; + +@foo = ( 'foo', 'bar', 'burbl'); +push(foo, 'blah'); +print $#foo == 3 ? "ok 40\n" : "not ok 40\n"; |