lvref.t: Remove to-do and eval from passing test
authorFather Chrysostomos <sprout@cpan.org>
Sun, 21 Sep 2014 18:19:41 +0000 (11:19 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Sat, 11 Oct 2014 04:54:06 +0000 (21:54 -0700)
This one passing test was failing inside the eval because closures
are not yet supported.  (That’s why I added explicit closure tests
in the previous commit.)

t/op/lvref.t

index 8286f17..1d6eb1f 100644 (file)
@@ -6,7 +6,9 @@ BEGIN {
 
 plan 15;
 
-$::TODO = ' ';
+sub on { $::TODO = ' ' }
+sub off{ $::TODO = ''  }
+on;
 
 eval '\$x = \$y';
 like $@, qr/^Experimental lvalue references not enabled/,
@@ -29,9 +31,11 @@ no warnings 'experimental::lvalue_refs';
 
 eval '\$x = \$y';
 is \$x, \$y, '\$pkg_scalar = ...';
+off;
 my $m;
-eval '\$m = \$y';
+\$m = \$y;
 is \$m, \$y, '\$lexical = ...';
+on;
 eval '\my $n = \$y';
 is \$n, \$y, '\my $lexical = ...';
 @_ = \$_;