- BAIL_OUT
Stop all the test scripts
examples/test-more/t/bail_out.t
use strict; use warnings; use Test::More tests => 3; my $x = 0; ok(1, "first"); ok($x, "second") or BAIL_OUT("no way"); ok(1, "third");
prove t/bail_out.t t/other.t
t/bail_out.t .. 1..3 ok 1 - first not ok 2 - second # Failed test 'second' # at t/bail_out.t line 9. Bailout called. Further testing stopped: no way Bail out! no way FAILED--Further testing stopped: no way