In module Test§
See primary documentation in context for sub eval-dies-ok.
multi eval-dies-ok(Str $code, $reason = '')
Marks a test as passed if the given $string
throws an Exception
when eval
ed as code.
The function accepts an optional description of the test.
eval-dies-ok q[my $joffrey = "nasty"; die "bye bye Ned" if $joffrey ~~ /nasty/], "Ned Stark dies";