test RT #69204, $foo .= "bar"()

Raku · Oct 3, 2015 · 5f82bde · 5f82bde
1 parent ecb2fb7
commit 5f82bde
Showing 1 changed file with 11 additions and 1 deletion.
diff --git a/S03-operators/inplace.t b/S03-operators/inplace.t
@@ -4,7 +4,7 @@ use Test;
 
 # L<S03/Assignment operators/A op= B>
 
-plan 27;
+plan 31;
 
 {
     my @a = (1, 2, 3);
@@ -94,4 +94,14 @@ is ~@b, "a b d e z", "inplace sort";
    is $x, True, '.= Bool (value)';
 }
 
+# RT #69204
+{
+    my $a = 'oh hai';
+    my $b = 'uc';
+    is $a.="uc"(), 'OH HAI', 'quoted method call with .= works with parens';
+    is $a.="$b"(), 'OH HAI', 'quoted method call (variable) with .= works with parens';
+    is $a .= "uc"(), 'OH HAI', 'quoted method call with .= works with parens and whitespace';
+    is $a .= "$b"(), 'OH HAI', 'quoted method call (variable) with .= works with parens and whitespace';
+}
+
 # vim: ft=perl6