Add fuged test for RT #116178

Raku · Mar 11, 2015 · b80e436 · b80e436
1 parent 25f2964
commit b80e436
Showing 1 changed file with 9 additions and 1 deletion.
diff --git a/S03-operators/assign.t b/S03-operators/assign.t
@@ -6,7 +6,7 @@ use Test;
 #                      V
 # L<S03/Changes to Perl 5 operators/list assignment operator now parses on the right>
 
-plan 295;
+plan 296;
 
 
 # tests various assignment styles
@@ -959,4 +959,12 @@ sub l () { 1, 2 };
         "Can't use fiddly ~~ with the = metaop ";
 }
 
+# RT #116178
+#?rakudo todo 'RT #116178'
+{
+    my $x //= .uc for 'a';
+    is $x, 'A',
+        'default-assignment (//-) does mix with implicit-variable method call';
+}
+
 # vim: ft=perl6