use warnings;
use strict;

use Test::More tests => 3;

BEGIN {
	use_ok "Time::OlsonTZ::Data", qw(
		olson_all_names olson_country_selection
	);
}

my $anames = olson_all_names;
my $sel = olson_country_selection;

is ref($sel), "HASH";

my $failures = 0;
foreach(keys %$sel) {
	/\A[A-Z]{2}\z/ or $failures++;
	my $cnt = $sel->{$_};
	ref($cnt) eq "HASH" or $failures++;
	$cnt->{alpha2_code} eq $_ or $failures++;
	defined($cnt->{olson_name}) or $failures++;
	my $regs = $cnt->{regions};
	ref($regs) eq "HASH" or $failures++;
	scalar(keys %$regs) != 0 or $failures++;
	(scalar(keys %$regs) != 1 xor exists($regs->{""})) or $failures++;
	foreach(keys %$regs) {
		my $reg = $regs->{$_};
		$reg->{olson_description} eq $_ or $failures++;
		exists $anames->{$reg->{timezone_name}} or $failures++;
		exists $reg->{location_coords} or $failures++;
	}
}
is $failures, 0;

1;