Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
rakudo fudging
  • Loading branch information
coke committed Oct 20, 2011
1 parent dff3691 commit b6a2dde
Show file tree
Hide file tree
Showing 3 changed files with 4 additions and 1 deletion.
2 changes: 2 additions & 0 deletions S04-exceptions/fail.t
Expand Up @@ -27,6 +27,7 @@ plan 10;
try { $sub(); $was_after_sub++ };

is $was_after_fail, 0, "fail() causes our sub to return (2)";
#?rakudo todo 'nom regression'
is $was_after_sub, 0, "fail() causes our try to die";
}

Expand All @@ -44,6 +45,7 @@ plan 10;
sub rt70229 { return fail() }
my $rt70229 = rt70229();
ok $rt70229 ~~ Failure, 'got a Failure';
#?rakudo skip 'nom regression'
dies_ok { ~$rt70229 }, 'attempt to stringify Failure dies';
}

Expand Down
1 change: 0 additions & 1 deletion S11-modules/require.t
Expand Up @@ -11,7 +11,6 @@ lives_ok { require Fancy::Utilities; },
is Fancy::Utilities::lolgreet('me'),
'O HAI ME', 'can call our-sub from required module';

#?rakudo todo 'write a simpler test'
lives_ok { my $name = 'A'; require $name }, 'can require with variable name';

# vim: ft=perl6
2 changes: 2 additions & 0 deletions S12-class/stubs.t
Expand Up @@ -13,13 +13,15 @@ eval_lives_ok q[ module StubC { ... }; module StubC { sub foo { } }; ],
'Can stub a module, and later on declare it';

#?niecza skip 'broken in nom-derived stub model'
#?rakudo todo 'nom regression'
eval_lives_ok q[ package StubD { ... }; class StubD { method foo { } }; ],
'Can stub a package, and later on implement it as a method';

# not quite class stubs, but I don't know where else to put the tests...

lives_ok { sub {...} }, 'not execued stub code is fine';
dies_ok { (sub {...}).() ~ '' }, 'execued stub code goes BOOM when used';
#?rakudo todo 'nom regression'
dies_ok { use fatal; (sub { ... }).() }, 'exeucted stub code goes BOOM under fatal';

# vim: ft=perl6

0 comments on commit b6a2dde

Please sign in to comment.