use Test::More; is ($_, $_, "test $_") for 1 .. 3; done_testing ();