view release on metacpan or  search on metacpan

t/01-functional.t  view on Meta::CPAN

$item = get_item($plan, $id1);
is($item->{status}, 'done', 'completed');
is(scalar @{ $item->{notes} }, 1, 'note added');

my @todo = items($plan, status => 'todo');
is(scalar @todo, 1, 'todo filter');

my $stats = stats($plan);
is($stats->{total}, 2, 'stats total');
is($stats->{done}, 1, 'stats done');
is($stats->{complete_pct}, 50, 'stats percent');

my ($fh, $path) = tempfile();
close $fh;
plan_save($plan, $path);

my $loaded = plan_load($path);
is($loaded->{title}, '2026', 'loaded title');
is(scalar @{ $loaded->{items} }, 2, 'loaded items');
is(scalar items($loaded, status => 'done'), 1, 'loaded status filter');