Skip to content

Instantly share code, notes, and snippets.

@melezhik
Created September 1, 2016 11:56
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save melezhik/5a3b0b77e8e094bf10d37bad60b0a542 to your computer and use it in GitHub Desktop.
Save melezhik/5a3b0b77e8e094bf10d37bad60b0a542 to your computer and use it in GitHub Desktop.
catch-done-testing case
melezhik@melezhik-pc:~/projects/outhentix-dsl$ cat catch-done-testing.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-testing.t
catch-done-testing.t ..
ok 1 - one
ok 2 - two
All 2 subtests passed
Test Summary Report
-------------------
catch-done-testing.t (Wstat: 0 Tests: 2 Failed: 0)
Parse errors: No plan found in TAP output
Files=1, Tests=2, 0 wallclock secs ( 0.02 usr 0.00 sys + 0.25 cusr 0.01 csys = 0.28 CPU)
Result: FAIL
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment