Fix tests for GLR

This test file was forgotten in the merging mess surrounding allomorphs, so it took a while for this to show up.
Raku · Sep 19, 2015 · 3fdcdae · 3fdcdae
1 parent 08154ac
commit 3fdcdae
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/S02-literals/allomorphic.t b/S02-literals/allomorphic.t
@@ -118,7 +118,7 @@ lives-ok {val("foo")}, "val() exists";
 {
     my @wordlist = qw[1 2/3 4.5 6e7 8+9i] Z (IntStr, RatStr, RatStr, NumStr, ComplexStr);
 
-    for @wordlist -> $val, $wrong-type {
+    for @wordlist -> ($val, $wrong-type) {
         isa-ok $val, Str, "'$val' from qw[] is a Str";
         nok $val.isa($wrong-type), "'$val' from qw[] is not a $wrong-type.perl()";
     }
@@ -127,7 +127,7 @@ lives-ok {val("foo")}, "val() exists";
 {
     my @wordlist = qqww[1 2/3 4.5 6e7 8+9i] Z (IntStr, RatStr, RatStr, NumStr, ComplexStr);
 
-    for @wordlist -> $val, $wrong-type {
+    for @wordlist -> ($val, $wrong-type) {
         isa-ok $val, Str, "'$val' from qqww[] is a Str";
         nok $val.isa($wrong-type), "'$val' from qqww[] is not a $wrong-type.perl()";
     }