RT #125371, catch variable use in its own initializer

Raku · Aug 17, 2015 · cddf3a2 · cddf3a2
1 parent b4780f5
commit cddf3a2
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 14 deletions.
diff --git a/S02-names-vars/variables-and-packages.t b/S02-names-vars/variables-and-packages.t
@@ -166,7 +166,7 @@ plan 38;
         my @array;
         for 1..3 {
             @array.push($i);
-            my $i = 1 + $i;
+            my $i = 1;
         }
     };
     s(9);/ },

diff --git a/S04-declarations/my.t b/S04-declarations/my.t
@@ -159,11 +159,8 @@ is(EVAL('loop (my $x = 1, my $y = 2; $x > 0; $x--) { last }; $y #OK'), 2, '2nd m
     is($f, 5, "two lexicals declared in scope is noop");
 }
 
-my $z = 42; #OK not used
-{
-    my $z = $z;
-    nok( $z.defined, 'my $z = $z; can not see the value of the outer $z');
-}
+# RT #125371
+throws-like 'my $z = $z', X::Syntax::Variable::Initializer, name => '$z';
 
 # interaction of my and EVAL
 # yes, it's weird... but that's the way it is

diff --git a/S04-declarations/our.t b/S04-declarations/our.t
@@ -1,7 +1,7 @@
 use v6;
 use Test;
 
-plan 32;
+plan 31;
 
 # L<S04/The Relationship of Blocks and Declarations/"our $foo" introduces a lexically scoped alias>
 our $a = 1;
@@ -31,12 +31,6 @@ is($a, 3, '$a has changed'); # XXX is that right?
     is ~@b, '3', 'push actually worked on @b';
 }
 
-our $c = 42; #OK not used
-{
-    my $c = $c;
-    nok( $c.defined, 'my $c = $c; can not see the value of the outer $c');
-}
-
 # check that our-scoped variables really belong to the package
 {
     package D1 {

diff --git a/S14-roles/mixin.t b/S14-roles/mixin.t
@@ -128,7 +128,7 @@ is $y.test,     42,         'method from other role was OK too';
     my $rt115390 = 0;
     for 1..1000 -> $i {
         $rt115390 += $i.perl;
-        my $error = (my $val = (^10).pick(3).min but !$val);
+        my $error = (my $val = (^10).pick(3).min but !$rt115390);
         1
     }
     is $rt115390, 500500,