#!/usr/bin/perl

use Test::Most tests => 3;
die_on_fail;

ok(1==2, "checkpoint 1");
lives_ok (
    sub {
        print "checkpoint 2\n";
    },
    "lives_ok test"
);
ok(1==1, "checkpoint 3");

##</code><code>##

-bash:perl$ perl dieonfail.pl
1..3
not ok 1 - checkpoint 1
#   Failed test 'checkpoint 1'
#   at dieonfail.pl line 6.
checkpoint 2
Test failed.  Stopping test.
# Looks like you planned 3 tests but only ran 1.
# Looks like you failed 1 test of 1 run.
# Looks like your test died just after 1.