diff options
| author | Rick Delaney <rick@consumercontact.com> | 2004-07-20 12:53:54 -0400 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2004-07-21 08:47:14 +0000 |
| commit | 04ab2c8763f1a01bee803d3ef65890b775f28c21 (patch) | |
| tree | 6151ff0a0728e74a309bc82c0f1ac3c40c6fe571 /t | |
| parent | 03874afe4126e47a07c482418278c13f14c14597 (diff) | |
| download | perl-04ab2c8763f1a01bee803d3ef65890b775f28c21.tar.gz | |
Re: [perl #30688] Empty slice arg with ($;$) prototype
Message-ID: <20040720205353.GA970@biff.bort.ca>
p4raw-id: //depot/perl@23145
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/list.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/op/list.t b/t/op/list.t index 4d7a2d5444..89ccf02c10 100755 --- a/t/op/list.t +++ b/t/op/list.t @@ -1,6 +1,6 @@ #!./perl -print "1..28\n"; +print "1..30\n"; @foo = (1, 2, 3, 4); if ($foo[0] == 1 && $foo[3] == 4) {print "ok 1\n";} else {print "not ok 1\n";} @@ -86,4 +86,13 @@ for ($x = 0; $x < 3; $x++) { my @c = (0, undef, undef, 3)[1, 2]; print "not " unless @b == @c and @c == 2; print "ok 28\n"; + + @b = (29, scalar @c[()]); + print "not " if join(':',@b) ne '29:'; + print "ok 29\n"; + + my %h = (a => 1); + @b = (30, scalar @h{()}); + print "not " if join(':',@b) ne '30:'; + print "ok 30\n"; } |