diff options
author | Vincent Pit <perl@profvince.com> | 2009-05-09 14:19:19 +0200 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-07-03 19:59:01 +0100 |
commit | 46e4e78b248dcd435e4df8df789a65f8a29d0e6a (patch) | |
tree | cf74d4773bac05cb903c615e36b97222303337d7 /ext | |
parent | 3bbad76083f0277a40cde8e38db697825ee40e1f (diff) | |
download | perl-46e4e78b248dcd435e4df8df789a65f8a29d0e6a.tar.gz |
Allow typed arrays and hashes
(Just the Attribute-Handlers test cherry-picked from
d5e98372e6efc414e818f1ed2d33156eb6ca6200)
Diffstat (limited to 'ext')
-rw-r--r-- | ext/Attribute-Handlers/t/multi.t | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/ext/Attribute-Handlers/t/multi.t b/ext/Attribute-Handlers/t/multi.t index a8156c2550..31b24d1442 100644 --- a/ext/Attribute-Handlers/t/multi.t +++ b/ext/Attribute-Handlers/t/multi.t @@ -7,6 +7,10 @@ BEGIN { } } +# This test file contains 57 tests. +# You need to number them manually. Don't forget to update this line for the +# next kind hacker. + END {print "not ok 1\n" unless $loaded;} use v5.6.0; use Attribute::Handlers; @@ -56,6 +60,22 @@ sub x1 :Lastly(1,44) {} my Test $x2 :Dokay(1,5); +if ($] < 5.011) { + ::ok(1, $_, '# skip : invalid before 5.11') for 55 .. 57; +} else { + my $c = $::count; + eval ' + my Test @x2 :Dokay(1,55); + my Test %x2 :Dokay(1,56); + '; + $c = $c + 2 - $::count; + while ($c > 0) { + ::ok(0, 57 - $c); + --$c; + } + ::ok(!$@, 57); +} + package Test; my $x3 :Dokay(1,6); my Test $x4 :Dokay(1,7); |