examples/perl/t/bail_out.t
use strict;
use warnings;

use Test::More tests => 3;


ok(1, "first I");
ok(0, "second II") or BAIL_OUT("no way");
ok(1, "third III");


perl examples/perl/t/bail_out.t

1..3
ok 1 - first I
not ok 2 - second II
#   Failed test 'second II'
#   at examples/perl/t/bail_out.t line 8.
Bail out!  no way

prove examples/perl/t/bail_out.t

perl/t/bail_out.t .. 1/3 Bailout called.  Further testing stopped:  no way

#   Failed test 'second II'
#   at perl/t/bail_out.t line 8.
FAILED--Further testing stopped: no way