- TODO
TODO
When you don't want to see the failing tests any more
examples/test-more/t/34.t
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