In module Test§

See primary documentation in context for sub dies-ok.

multi dies-ok(Callable $code, $reason = '')

Marks a test as passed if the given $code throws an Exception.

The function accepts an optional description of the test.

sub saruman(Bool :$ents-destroy-isengard) {
    die "Killed by Wormtongue" if $ents-destroy-isengard;
}

dies-ok { saruman(ents-destroy-isengard => True) }, "Saruman dies";