File Coverage

t/03-contains.t

Criterion	Covered	Total	%
statement	36	37	97.3
branch	4	4	100.0
condition			n/a
subroutine	5	5	100.0
pod			n/a
total	45	46	97.8

use strict;
use warnings;
use Test::More qw(no_plan);

use DateTimeX::ISO8601::Interval;
use DateTime::Format::ISO8601;

ok !eval { DateTimeX::ISO8601::Interval->parse }, 'fails';

my $parser = DateTime::Format::ISO8601->new;
chomp(my @tests = );
foreach my $t(@tests) {
	next if $t =~ /^(#.*|$)/;
	my($interval,$criteria,$date) = split(/\t/, $t);
	my $parsed = DateTimeX::ISO8601::Interval->parse($interval);
	if($criteria eq 'contains') {
		ok $parsed->contains($parser->parse_datetime($date)), "$parsed $criteria $date";
	} else {
		ok !$parsed->contains($parser->parse_datetime($date)), "$parsed $criteria $date";
	}
}

my $interval = DateTimeX::ISO8601::Interval->parse('P7D');
my $success = eval { $interval->contains('2013-01-01'); 1 };
ok !$success, 'contains fails if no start/end';
like $@, qr{Unable to determine}, 'expected error';

$interval->start('2013-01-01');
ok $interval->contains('2013-01-01'), 'contains works with start date';

delete $interval->{start};
$interval->end('2013-01-10');
ok $interval->contains('2013-01-04'), 'contains works with end date';

__DATA__