3 use Test::More qw(no_plan);
5 use autobox::DateTime::Duration;
8 use_ok aliased => 'IronMunger::Monger';
9 use_ok aliased => 'IronMunger::Post';
12 my $monger = Monger->new(
14 map { Post->new(url => 'http://localhost', at => $_->days->ago) } (2, 10)
18 cmp_ok($monger->days_left, '==', 8, 'Eight days to post');
19 cmp_ok($monger->post_count, '==', 2, 'Two sequential posts');