Skip to content

Commit

Permalink
[t/spec] Fudged dollar_bang.t for rakudo
Browse files Browse the repository at this point in the history
git-svn-id: http://svn.pugscode.org/pugs@22426 c213334d-75ef-0310-aa23-eaa082d1ae64
  • Loading branch information
azawawi committed Sep 27, 2008
1 parent d75e43e commit 071c07d
Showing 1 changed file with 3 additions and 0 deletions.
3 changes: 3 additions & 0 deletions S02-magicals/dollar_bang.t
Expand Up @@ -12,6 +12,8 @@ This test tests the C<$!> builtin.

# L<S04/"Exceptions"/"A bare die/fail takes $! as the default argument.">

#?rakudo 3 skip 'unimpl $!'

eval '&nonexisting_subroutine()';
ok $!, 'Calling a nonexisting subroutine sets $!';

Expand All @@ -27,6 +29,7 @@ try { foo(@a,@a) };
ok $!, 'Calling a subroutine with a nonmatching signature sets $!';
ok !$called, 'The subroutine also was not called';

#?rakudo skip 'unimpl $!'
undefine $!;
try { 1 / 0 };
ok $!, 'Dividing one by zero sets $!';
Expand Down

0 comments on commit 071c07d

Please sign in to comment.