Stop all the test scripts
- BAIL_OUT
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