#!/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");