Select Code to Download

use strict;
use warnings;
...
ok( 0,    "test $_/3 will fail..." ) for (1..3);
done_testing;

ok 1 - okay
not ok 2 - oops
...
#   Failed test 'test 1/3 will fail...'
#   at ./tm.pl line 30.
Bail out!  Limit of 2 errors reached (passed=1, failed=2)!