#!/usr/bin/perl use Test::More tests => 4; ok(1+2 == 3); ok(1+2 == 3, "basic arithmetic works"); is(1, 2, "that's too bad."); is(1, 1); cmp_ok("11", "==", "11elf", "blergh, perl!"); TODO: { local $TODO = "oh I see"; pass("need to add todos"); } BAIL_OUT("enough of this!");