[engit/Iron-Munger.git] / t / monger.t

use strict;
use warnings;
use Test::More qw(no_plan);
use autobox;
use autobox::DateTime::Duration;

BEGIN {
  use_ok aliased => 'IronMunger::Monger';
  use_ok aliased => 'IronMunger::Post';
}

my $monger = Monger->new(
  posts => [
    map { Post->new(url => 'http://localhost', at => $_->days->ago) } (2, 10)
  ]
);

cmp_ok($monger->days_left, '==', 8, 'Eight days to post');
cmp_ok($monger->post_count, '==', 2, 'Two sequential posts');
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');