Corrected tests for RT #76444. Mouq++

Raku · Jan 26, 2014 · fab066e · fab066e
1 parent 7af18f0
commit fab066e
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/S03-operators/assign.t b/S03-operators/assign.t
@@ -977,7 +977,11 @@ sub l () { 1, 2 };
 { 
     (my $a) = 1,2,3;
     is $a, (1,2,3), "Assignment into parentheses'd my works.";
+    sub foo($x) { $x };
+    is (foo (my $a = 1,2,3)), (1,2,3), "Routine call taking a parenthesised my as argument works. #1";
+    sub low-prec(\i) { True };
+    is (low-prec (my $x = 3,2,1)), True, "Routine call taking a parenthesised my as argument works. #2";
+    is $x, (3,2,1), "Routine call taking a parenthesised my as argument works. #3";
 }
 
-
 # vim: ft=perl6