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( |
72958755 |
13 | posts => [ |
14 | map { Post->new(url => 'http://localhost', at => $_->days->ago) } (2, 10) |
15 | ] |
f2dad6bd |
16 | ); |
17 | |
18 | cmp_ok($monger->days_left, '==', 8, 'Eight days to post'); |
19 | cmp_ok($monger->post_count, '==', 2, 'Two sequential posts'); |