Skip to content

Commit

Permalink
test for RT #76996, and correct and unfudge some tests
Browse files Browse the repository at this point in the history
  • Loading branch information
moritz committed Oct 9, 2011
1 parent 8428300 commit dd094a9
Showing 1 changed file with 5 additions and 5 deletions.
10 changes: 5 additions & 5 deletions integration/weird-errors.t
Original file line number Diff line number Diff line change
Expand Up @@ -3,19 +3,17 @@ use Test;
BEGIN { @*INC.push: 't/spec/packages' };
use Test::Util;

plan 5;
plan 6;

# this used to segfault in rakudo
#?rakudo todo 'nom regression'
is_run(
'try { 1/0 }; my $x = $!.WHAT; say ~$x',
'try { die 42 }; my $x = $!.WHAT; say $x',
{ status => 0, out => -> $o { $o.chars > 2 }},
'Can stringify $!.WHAT without segfault',
);

#?rakudo todo 'make 1/0 in void context die?'
is_run(
'try { 1/0; CATCH { when * { say $!.WHAT } }; };',
'try { die 42; CATCH { when * { say $!.WHAT } }; };',
{ status => 0, out => -> $o { $o.chars > 2 }},
'Can say $!.WHAT in a CATCH block',
);
Expand All @@ -35,4 +33,6 @@ is_run(

eval_dies_ok 'time(1, 2, 3)', 'time() with arguments dies';

# RT #76996
lives_ok { 1.^methods>>.sort }, 'can use >>.method on result of introspection';

0 comments on commit dd094a9

Please sign in to comment.