Automatic Testing with Perl
PrevChapter 6. Test::MoreNext

6.2. Test::More ok( trueness, name);

A drop-in replacement of Test::Simple.

Example 6-1. examples/intro/t21_calc.t

#!/usr/bin/perl
use strict;
use warnings;

use Test::More tests => 3;

ok `./mycalc 1 + 1` == 2,     '1+1';
ok `./mycalc 2 + 2` == 4,     '2+2';
ok `./mycalc 2 + 2 + 2` == 6, '2+2+2';
Result

$ perl t6_calc.t 
1..3
ok 1 - 1+1
ok 2 - 2+2
not ok 3 - 2+2+2
#     Failed test (t6_calc.t at line 7)
# Looks like you failed 1 tests of 3.
PrevHome (Copyright Gabor Szabo) Perl Training IsraelNext
Test::MoreUpTest::More is( value, expected_value, name);