3 use Test::More qw(no_plan);
5 use autobox::DateTime::Duration;
9 use_ok 'IronMunger::Post';
10 use_ok 'IronMunger::Calculate';
13 sub named_eq ($test_name, $sub_name, $expected, @posts) {
14 my $sub_ref = IronMunger::Calculate->can($sub_name);
15 my $sub_description = join(' ', split '_', $sub_name);
17 $sub_ref->(@posts), '==', $expected,
18 "${test_name}: ${expected} ${sub_description}",
22 sub case ($name_spec, $case, $expect) {
23 my $name = join(' ', map ucfirst, split '_', $name_spec);
24 my @posts = map { IronMunger::Post->new(at => $_) } @$case;
25 foreach my $test (sort keys %$expect) {
26 named_eq($name, $test, $expect->{$test}, @posts);
30 sub expect (%expect) {
32 successful_sequential_posts => $expect{sequential},
33 days_remaining_to_post => $expect{remaining},
38 [ 5->days->ago, 13->days->ago ],
43 case two_posts_too_far_apart =>
44 [ 5->days->ago, 20->days->ago ],