# some-test.t
use strict;
use Test::More;

ok(1, "1 is okay");
is("A", "A", "A is A");
cmp_ok("B", "gt", "A", "B is greater than puny A");
isnt("A", "B", "A didn't magically become B");
like("this", qr/that/, "This is like that");

done_testing(5);