get rid of some unused (and partially wrong) lexicals; fudge for-scop…

…e.t for rakudo

S04-statements/for-scope.t

@@ -4,7 +4,7 @@ use Test;
 
 # L<S04/The C<for> statement>
 
-plan 15;
+plan 16;
 
 # Implicit $_
 for 1, 2 {
@@ -45,6 +45,7 @@ for 1, 2 -> $_ {
     is(@inside.join, "123", "lexical array properly initialized, round $_, two explicit \$_s");
 }
 
+#?rakudo skip 'wrong redeclaration error, RT 84438'
 {
     sub respect(*@a) {
         my @b = ();
@@ -55,6 +56,7 @@ for 1, 2 -> $_ {
     is respect(1,2,3), 3, 'a for loop inside a sub loops over each of the elements';
     is respect([1,2,3]), 1, '... but only over one array ref';
     is respect( my @a = 1, 2, 3 ), 3, '...and when the array is declared in the argument list';
+    is @a.join(',', '1,2,3', 'and the array get the right values';
 }
 
 # vim: ft=perl6

S04-statements/while.t

@@ -72,8 +72,7 @@ plan 9;
 #?mildew skip 1
 # L<S04/Statement parsing/keywords require whitespace>
 {
-    my $i = 0;
-    eval_dies_ok('while($i < 5) { $i++; }',
+    eval_dies_ok('my $i = 1; while($i < 5) { $i++; }',
         'keyword needs at least one whitespace after it');
 }
 

S05-metasyntax/changed.t

@@ -30,10 +30,9 @@ plan 12;
 
 # The \A, \Z, and \z metacharacters are gone.
 {
-    my $str = "abc\ndef";
-    eval_dies_ok('$str ~~ /\A/', '\\A is gone');
-    eval_dies_ok('$str ~~ /\Z/', '\\Z is gone');
-    eval_dies_ok('$str ~~ /\z/', '\\z is gone');
+    eval_dies_ok('/\A/', '\\A is gone');
+    eval_dies_ok('/\Z/', '\\Z is gone');
+    eval_dies_ok('/\z/', '\\z is gone');
 }
 
 # vim: ft=perl6