Slide 50
Slide 50 text
Test::More
use Test::More tests => 5;
use Calc;
is( Calc::plus (1, 1), 2, "one plus one");
is( Calc::minus(3, 2), 1, "positive minus");
is( Calc::minus(0, 2), -2, "negative minus");
ok( Calc::plus (2, 2) == 4, "ok positive plus");
ok( Calc::minus(3, 5) == -1, "ok negative minus");
perldoc Test::More for complete syntax
Monday, December 12, 2011