diff options
author | Father Chrysostomos <sprout@cpan.org> | 2011-06-16 14:55:18 -0700 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2011-06-16 20:17:20 -0700 |
commit | 7393165ef277e989fdf63df19ea17698bf83d8db (patch) | |
tree | 712b41efd027bd80610a195b19c9b81ed00747a1 | |
parent | 16eb5365105fd7ab1815c325059d04765892205f (diff) | |
download | perl-7393165ef277e989fdf63df19ea17698bf83d8db.tar.gz |
Test ref(\pos) and ref(\vec...)
-rw-r--r-- | t/op/ref.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/op/ref.t b/t/op/ref.t index a6d8fa0138..2266a74014 100644 --- a/t/op/ref.t +++ b/t/op/ref.t @@ -8,7 +8,7 @@ BEGIN { use strict qw(refs subs); -plan(217); +plan(221); # Test glob operations. @@ -188,7 +188,9 @@ for ( [ 'PVBM', SCALAR => \PVBM ], [ 'vstring', VSTRING => \v1 ], [ 'ref', REF => \\1 ], - [ 'lvalue', LVALUE => \substr($x, 0, 0) ], + [ 'substr lvalue', LVALUE => \substr($x, 0, 0) ], + [ 'pos lvalue', LVALUE => \pos ], + [ 'vec lvalue', LVALUE => \vec($x,0,1) ], [ 'named array', ARRAY => \@ary ], [ 'anon array', ARRAY => [ 1 ] ], [ 'named hash', HASH => \%whatever ], |