- ok|Test::More
Test::More ok( trueness, name);
- Test::More is a drop-in replacement of Test::Simple.
examples/test-more/t/31.t
use strict; use warnings; use lib 'lib'; use MySimpleCalc qw(sum); use Test::More tests => 3; ok( sum(1, 1) == 2, '1+1'); ok( sum(2, 2) == 4, '2+2'); ok( sum(2, 2, 2) == 6, '2+2+2');
perl t/31.t
1..3 ok 1 - 1+1 ok 2 - 2+2 not ok 3 - 2+2+2 # Failed test '2+2+2' # at t/31.t line 12. # Looks like you failed 1 test of 3.