TODO
- TODO
When you don't want to see the failing tests any more
use strict;
use warnings;
use MySimpleCalc qw(sum);
use Test::More tests => 3;
diag "Add two numbers";
is(sum(1, 1), 2, '1+1');
is(sum(2, 2), 4, '2+2');
diag "Add 3 numbers";
TODO: {
local $TODO = "fix bug summing more than 2 values #173";
is(sum(2, 2, 2), 6, '2+2+2');
}
$ prove -l t/34.t
# Add two numbers
# Add 3 numbers
t/34.t .. ok
All tests successful.
Files=1, Tests=3, 1 wallclock secs ( 0.01 usr 0.00 sys + 0.02 cusr 0.01 csys = 0.04 CPU)
Result: PASS