use v6-alpha;
use Test;
plan 12;
# Implicit $_
for 1, 2 {
my $inside;
for 1 .. 3 { $inside ~= $_; }
is($inside, "123", "lexical scalar properly initialized, round $_");
}
for 1, 2 {
my @inside;
for 1 .. 3 { push @inside, $_; }
is(@inside.join(""), "123", "lexical array properly initialized, round $_");
}
# Explicit $_
for 1, 2 {
my $inside;
for 1 .. 3 -> $_ { $inside ~= $_; }
is($inside, "123", "lexical scalar properly initialized, round $_, explicit \$_");
}
for 1, 2 {
my @inside;
for 1 .. 3 -> $_ { push @inside, $_; }
is(@inside.join(""), "123", "lexical array properly initialized, round $_, explicit \$_");
}
# Explicit $_
for 1, 2 -> $_ {
my $inside;
for 1 .. 3 -> $_ { $inside ~= $_; }
is($inside, "123", "lexical scalar properly initialized, round $_, two explicit \$_s");
}
for 1, 2 -> $_ {
my @inside;
for 1 .. 3 -> $_ { push @inside, $_; }
is(@inside.join(""), "123", "lexical array properly initialized, round $_, two explicit \$_s");
}