This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Test ref(\pos) and ref(\vec...)
authorFather Chrysostomos <sprout@cpan.org>
Thu, 16 Jun 2011 21:55:18 +0000 (14:55 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 17 Jun 2011 03:17:20 +0000 (20:17 -0700)
t/op/ref.t

index a6d8fa0..2266a74 100644 (file)
@@ -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           ],