catch-done-testing-inside2

gistfile1.txt

melezhik@melezhik-pc:~/projects/outhentix-dsl$ cat catch-done-testing2.t 
use v6;
use Test;

class Foo { method foo { die "upss" } }

ok 1, 'one';

Foo.new().foo;

CATCH {  default { ok True, 'two'; done-testing; } } 


melezhik@melezhik-pc:~/projects/outhentix-dsl$ prove --exec 'perl6' -v catch-done-testing2.t 
catch-done-testing2.t .. 
ok 1 - one
ok 2 - two
1..2
ok
All tests successful.
Files=1, Tests=2,  0 wallclock secs ( 0.02 usr  0.00 sys +  0.23 cusr  0.03 csys =  0.28 CPU)
Result: PASS