Commit | Line | Data |
---|---|---|
f2dad6bd | 1 | use strict; |
2 | use warnings; | |
3 | use Test::More qw(no_plan); | |
f2dad6bd | 4 | use autobox; |
5 | use autobox::DateTime::Duration; | |
6 | ||
315f380b | 7 | BEGIN { |
8 | use_ok aliased => 'IronMunger::Monger'; | |
9 | use_ok aliased => 'IronMunger::Post'; | |
10 | } | |
11 | ||
f2dad6bd | 12 | my $monger = Monger->new( |
13 | posts => [ map { Post->new(at => $_->days->ago) } (2, 10) ] | |
14 | ); | |
15 | ||
16 | cmp_ok($monger->days_left, '==', 8, 'Eight days to post'); | |
17 | cmp_ok($monger->post_count, '==', 2, 'Two sequential posts'); |