use warnings;
use strict;

BEGIN {
	eval {
		require DateTime::TimeZone::Tzfile;
		DateTime::TimeZone::Tzfile->VERSION(0.009);
	};
	if($@ ne "") {
		require Test::More;
		Test::More::plan(skip_all =>
			"no usable DateTime::TimeZone::Tzfile");
	}
}

use Test::More tests => 2;

BEGIN { use_ok "Time::OlsonTZ::Data", qw(olson_canonical_names olson_tzfile); }

my $failures = 0;
foreach(sort keys %{olson_canonical_names()}) {
	unless(eval { DateTime::TimeZone::Tzfile->new(olson_tzfile($_)); 1}) {
		diag "$_: $@";
		$failures++;
	}
}
is $failures, 0;

1;