Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Fudge test file
(needs tickets)
  • Loading branch information
coke committed Aug 17, 2014
1 parent 5127dd1 commit 565ce74
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions S11-modules/export.t
Expand Up @@ -94,6 +94,7 @@ ok( ! &EXPORT::DEFAULT::exp_my_tag,
'exp_my_tag -- EXPORT::DEFAULT::exp_my_tag does not exist' );


#?rakudo skip "export issue"
{
package Foo {
sub Foo_exp_parens is export() { 'r_Foo_exp_parens' }
Expand Down Expand Up @@ -125,7 +126,9 @@ ok( ! &EXPORT::DEFAULT::exp_my_tag,
my $a = Bar.new;
is($a.bar, "default", '$a.bar gets default value');
is($a.bar("sixties"), "sixties", '$a.bar() gets passed value');
#?rakudo skip "export issue"
is(Bar::bar($a), "default", 'Bar::bar($a) gets default value');
#?rakudo skip "export issue"
is(Bar::bar($a, "moonlight"), "moonlight", 'Bar::bar($a, ) gets default value');
}

Expand Down

0 comments on commit 565ce74

Please sign in to comment.