[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(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(
	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');