use v6-alpha;
use Test;
# L<"http://use.perl.org/~autrijus/journal/25337">
# my() declarations scopes lexically to the rest of the block; using $MY::x or
# $::("x") in the block before the actual declaration is erroneous.
plan 12;
{
is(eval('my $x; my $x; 1'), 1, "test declare my() variable twice in same scope");
}
{
is(eval('$x; my $x = 42'), undef, 'my() variable not yet visible (2)', :todo<bug>);
is(eval('my $x = 42; $x'), 42, 'my() variable is visible now (2)');
}
{
my $ret = 42;
is(eval('$ret = $x ~ my $x; 1'), undef, 'my() variable not yet visible (1)', :todo<bug>);
is $ret, 42, 'my() variable not yet visible (2)', :todo<bug>;
}
{
my $ret = 42;
lives_ok { $ret = my($x) ~ $x }, 'my() variable is visible (1)';
is $ret, "", 'my() variable is visible (2)';
}
{
my $was_in_sub;
my &foo := -> $arg { $was_in_sub = $arg };
foo(42);
is $was_in_sub, 42, 'calling a lexically defined my()-code var worked';
}
{
is(do{my $a = 3; $a}, 3, 'do{my $a = 3; $a} works');
is(do{1; my $a = 3; $a}, 3, 'do{1; my $a = 3; $a} works');
}
ok(eval('my $x = my $y = 0; 1'), '"my $x = my $y = 0" parses');
{
my $test = "value should still be set for arg, even if there's a later my";
sub foo (*%p) {
is(%p<a>, 'b', $test, :todo<bug> );
my %p;
}
foo(a => 'b');
}