view release on metacpan or  search on metacpan

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

my $id1 = add_item($plan, 'Run a marathon',
    list => 'Health',
    tags => ['fitness'],
    priority => 2,
    due => '2026-10-01',
);
my $id2 = add_item($plan, 'Publish a book', list => 'Work', tags => ['writing']);

is($id1, 1, 'first id');
is($id2, 2, 'second id');

my $item = get_item($plan, $id1);
is($item->{status}, 'todo', 'default status');
is($item->{list}, 'Health', 'list stored');

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