Skip to content

Commit 3fdcdae

Browse files
committed
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.
1 parent 08154ac commit 3fdcdae

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

S02-literals/allomorphic.t

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -118,7 +118,7 @@ lives-ok {val("foo")}, "val() exists";
118118
{
119119
my @wordlist = qw[1 2/3 4.5 6e7 8+9i] Z (IntStr, RatStr, RatStr, NumStr, ComplexStr);
120120

121-
for @wordlist -> $val, $wrong-type {
121+
for @wordlist -> ($val, $wrong-type) {
122122
isa-ok $val, Str, "'$val' from qw[] is a Str";
123123
nok $val.isa($wrong-type), "'$val' from qw[] is not a $wrong-type.perl()";
124124
}
@@ -127,7 +127,7 @@ lives-ok {val("foo")}, "val() exists";
127127
{
128128
my @wordlist = qqww[1 2/3 4.5 6e7 8+9i] Z (IntStr, RatStr, RatStr, NumStr, ComplexStr);
129129

130-
for @wordlist -> $val, $wrong-type {
130+
for @wordlist -> ($val, $wrong-type) {
131131
isa-ok $val, Str, "'$val' from qqww[] is a Str";
132132
nok $val.isa($wrong-type), "'$val' from qqww[] is not a $wrong-type.perl()";
133133
}

0 commit comments

Comments
 (0)