dollar_bang.t

use v6;

use Test;

plan 8;

=begin desc

This test tests the C<$!> builtin.

=end desc

# 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 $!';

undefine $!;
try { nonexisting_subroutine; };
ok $!, 'Calling a nonexisting subroutine sets $!';

undefine $!;
my $called;
sub foo(Str $s) { return $called++ };
my @a;
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 $!';

sub incr ( $a is rw ) { $a++ };
undefine $!;
try { incr(19) };
ok $!, 'Modifying a constant sets $!';

try {
    try {
        die 'qwerty';
    }
    ok ~($!) ~~ /qwerty/, 'die sets $! properly';
    die; # use the default argument
}
ok ~($!) ~~ /qwerty/, 'die without argument uses $! properly';