This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Move a test to the right file
authorFather Chrysostomos <sprout@cpan.org>
Fri, 27 May 2011 05:01:07 +0000 (22:01 -0700)
committerFather Chrysostomos <sprout@cpan.org>
Fri, 27 May 2011 05:01:56 +0000 (22:01 -0700)
sub_lval.t is for lvalue subs, not built-ins.

t/op/sub_lval.t
t/re/substr.t

index d0ba84a..54c695f 100644 (file)
@@ -3,7 +3,7 @@ BEGIN {
     @INC = '../lib';
     require './test.pl';
 }
-plan tests=>76;
+plan tests=>75;
 
 sub a : lvalue { my $a = 34; ${\(bless \$a)} }  # Return a temporary
 sub b : lvalue { ${\shift} }
@@ -581,20 +581,3 @@ sub fleen : lvalue { $pnare }
 $pnare = __PACKAGE__;
 ok eval { fleen = 1 }, "lvalues can return COWs (CATTLE?) [perl #75656]";\
 is $pnare, 1, 'and returning CATTLE actually works';
-
-{
-    my $result_3363;
-    sub a_3363 {
-        my ($word, $replace) = @_;
-        my $ref = \substr($word, 0, 1);
-        $$ref = $replace;
-        if ($replace eq "b") {
-            $result_3363 = $word;
-        } else {
-            a_3363($word, "b");
-        }
-    }
-    a_3363($_, "v") for "test";
-
-    is($result_3363, "best", "ref-to-substr retains lvalue-ness under recursion [perl #3363]");
-}
index a0cac6a..3416256 100644 (file)
@@ -24,7 +24,7 @@ $SIG{__WARN__} = sub {
 
 BEGIN { require './test.pl'; }
 
-plan(362);
+plan(363);
 
 run_tests() unless caller;
 
@@ -745,3 +745,20 @@ ok eval {
  }
  1
 }, 'UTF8 cache is reset when TARG is reused [perl #77692]';
+
+{
+    my $result_3363;
+    sub a_3363 {
+        my ($word, $replace) = @_;
+        my $ref = \substr($word, 0, 1);
+        $$ref = $replace;
+        if ($replace eq "b") {
+            $result_3363 = $word;
+        } else {
+            a_3363($word, "b");
+        }
+    }
+    a_3363($_, "v") for "test";
+
+    is($result_3363, "best", "ref-to-substr retains lvalue-ness under recursion [perl #3363]");
+}