TODO: unexpected success (the code)
examples/test-more/lib/MySimpleCalcFixed.pm
package MySimpleCalcFixed; use strict; use warnings; use Exporter qw(import); our @EXPORT_OK = qw(sum); sub sum { my $sum = 0; $sum += $_ for @_; return $sum; } 1;
examples/test-more/t/35.t
use strict; use warnings; use lib 'lib'; use MySimpleCalcFixed 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"; is(sum(2, 2, 2), 6, '2+2+2'); }