Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fudge for niecza.
  • Loading branch information
colomon committed Oct 6, 2012
1 parent 316e321 commit a5194c1
Showing 1 changed file with 4 additions and 0 deletions.
4 changes: 4 additions & 0 deletions S02-names/symbolic-deref.t
Expand Up @@ -73,6 +73,7 @@ my $outer = 'outside';

#?pugs 2 skip 'No such subroutine'
is ::('Outer::Inner').perl, Outer::Inner.perl, 'can look up name with :: (1)';
#?niecza skip "Object reference not set to an instance of an object"
is ::('A::B').perl, A::B.perl, 'can look up name with :: (1)';
}

Expand All @@ -82,6 +83,7 @@ my $outer = 'outside';
my $cool = "cool";
my $pugsis = 'pugs::is';

#?niecza 2 skip "Object reference not set to an instance of an object"
is $::("pugs")::is::($cool), 42, 'not so basic symbolic dereferentiation works';
is $::($pugsis)::($cool), 42, 'symbolic derefertiation with multiple packages in one variable works';
eval_dies_ok('$::($pugsis)cool', '$::($foo)bar is illegal');
Expand Down Expand Up @@ -138,11 +140,13 @@ my $outer = 'outside';

# Symbolic dereferentiation of type vars
#?rakudo skip 'NYI'
#?niecza skip "Object reference not set to an instance of an object"
{
cmp_ok ::Array, &infix:<===>, ::("Array"),
"symbolic dereferentiation of type vars works (1)";
}

#?niecza skip "Object reference not set to an instance of an object"
{
class A::B::C {};
my $ok = ::A::B::C === ::A::("B")::C;
Expand Down

0 comments on commit a5194c1

Please sign in to comment.