Skip to content

Commit

Permalink
Tighten scope of fudging; refer to existing ticket
Browse files Browse the repository at this point in the history
  • Loading branch information
usev6 committed Aug 18, 2015
1 parent cddf3a2 commit b92897b
Showing 1 changed file with 4 additions and 4 deletions.
8 changes: 4 additions & 4 deletions S02-names-vars/names.t
Expand Up @@ -9,7 +9,6 @@ plan 144;
# L<S02/Names/>
# syn r14552

#?rakudo skip 'package variable autovivification RT #124637'
#?niecza skip 'Undeclared name: Terrain::'
{
my $mountain = 'Hill';
Expand All @@ -18,8 +17,10 @@ plan 144;
our $river = 'Terrain::Hill';
is($mountain, 'Hill', 'basic variable name');
is($Terrain::mountain, 108, 'variable name with package');
#?rakudo skip 'package variable autovivification RT #124637'
is(Terrain::<$mountain>, 108, 'variable name with sigil not in front of package');
is($Terrain::Hill::mountain, 1024, 'variable name with 2 deep package');
#?rakudo skip 'package variable autovivification RT #124637'
is(Terrain::Hill::<$mountain>, 1024, 'varaible name with sigil not in front of 2 package levels deep');
is($Terrain::($mountain)::mountain, 1024, 'variable name with a package name partially given by a variable ');
is($::($river)::mountain, 1024, 'variable name with package name completely given by variable');
Expand All @@ -29,11 +30,11 @@ plan 144;
my $bear = 2.16;
is($bear, 2.16, 'simple variable lookup');
#?niecza skip 'Object reference not set to an instance of an object'
#?rakudo skip 'this kind of lookup NYI'
#?rakudo skip 'this kind of lookup NYI RT #125659'
is($::{'bear'}, 2.16, 'variable lookup using $::{\'foo\'}');
is(::{'$bear'}, 2.16, 'variable lookup using ::{\'$foo\'}');
#?niecza skip 'Object reference not set to an instance of an object'
#?rakudo skip 'this kind of lookup NYI'
#?rakudo skip 'this kind of lookup NYI RT #125659'
is($::<bear>, 2.16, 'variable lookup using $::<foo>');
is(::<$bear>, 2.16, 'variable lookup using ::<$foo>');
}
Expand All @@ -46,7 +47,6 @@ plan 144;
is(::{'$!@#$'}, 2.22, 'variable lookup using ::{\'$symbols\'}');
is($::<!@#$>, 2.22, 'variable lookup using $::<symbols>');
is(::<$!@#$>, 2.22, 'variable lookup using ::<$symbols>');

}

# RT #65138, Foo::_foo() parsefails
Expand Down

0 comments on commit b92897b

Please sign in to comment.