File Coverage

t/01-parsing.t

Criterion	Covered	Total	%
statement	38	40	95.0
branch	4	4	100.0
condition	2	3	66.6
subroutine	4	4	100.0
pod			n/a
total	48	51	94.1

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

use DateTimeX::ISO8601::Interval;

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

chomp(my @tests = );
foreach my $t(@tests) {
	next if $t =~ /^(#.*|$)/;
	my($in,$out,$todo) = split(/\t/, $t);
	my $parsed = DateTimeX::ISO8601::Interval->parse($in);
	if($todo && $todo =~ s/TODO //) {
		TODO: {
			local $TODO = $todo;
			is "$parsed", "$out", "parsing $in == $out";
		}
	} else {
		is "$parsed", "$out", "parsing $in == $out";
	}
}

my $interval = DateTimeX::ISO8601::Interval->parse('2013-04-15/2013-04-16', time_zone => 'America/New_York');
is $interval->start->time_zone->name, 'America/New_York', 'correct time_zone set';

$interval = DateTimeX::ISO8601::Interval->parse('2013-04-15/16', time_zone => 'America/New_York');
is $interval->duration->in_units('days'), 2, 'expected number of days';

$interval = DateTimeX::ISO8601::Interval->parse('2013-04-15/P1D', time_zone => 'America/New_York');
is $interval->duration->in_units('days'), 1, 'expected number of days';

my $success = eval { DateTimeX::ISO8601::Interval->parse('2013-12-01'); 1 };
ok !$success, 'failed on garbage input';
like $@, qr{Invalid interval: 2013-12-01}, 'expected error';

$success = eval { DateTimeX::ISO8601::Interval->parse('2013-01-01/P1D', time_zone => 'fake'); 1 };
ok !$success, 'failed on bogus time_zone';
like $@, qr{Invalid time_zone: fake}, 'expected error';

__DATA__