Unfudge passing test for RT #116178, add 2nd test

Raku · May 8, 2015 · fdaa7dc · fdaa7dc
1 parent e9074a8
commit fdaa7dc
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 2 deletions.
diff --git a/S03-operators/assign.t b/S03-operators/assign.t
@@ -959,7 +959,6 @@ sub l () { 1, 2 };
 }
 
 # RT #116178
-#?rakudo skip 'RT #116178'
 {
     my $x //= .uc for 'a';
     is $x, 'A',

diff --git a/S04-statement-modifiers/for.t b/S04-statement-modifiers/for.t
@@ -2,7 +2,7 @@ use v6;
 
 use Test;
 
-plan 26;
+plan 27;
 
 # L<S04/"Conditional statements"/Conditional statement modifiers work as in Perl 5>
 
@@ -145,4 +145,12 @@ is ((sub r { "OH HAI" })() for 5), "OH HAI", 'Anon sub in statement modifier for
     is @a, (0, 0, 1, 1), 'for thunk does not mess up statement modifier closures';
 }
 
+# RT #116178
+{
+    my @a = <a b c>;
+    my %h;
+    %h{.value} //= .key for @a.pairs;
+    is %h, {:a(0), :b(1), :c(2)}, "default-assignment (//-) doesn't mix with implicit-variable method call";
+}
+
 # vim: ft=perl6