#! /usr/bin/perl

use strict;
use warnings;
use Test::More 'no_plan';

is 1+1, 2, 'addition works';
is 2*2, 5, 'oops - silly me';

__END__
# outputs

ok 1 - addition works
not ok 2 - oops - silly me
#   Failed test 'oops - silly me'
#   in foo.t at line 8.
#          got: '4'
#     expected: '5'
1..2