use Test::More tests => 17;

BEGIN {
	use lib "../lib";
	use_ok( "Geography::Countries::LatLong" => 1.0)
}

isa_ok( latlong("Niue"),'ARRAY', 'return');

@_ = latlong('Niue');
is($_[0], '-19.0333', 'lat');
is($_[1], '-169.8667', 'lon');

$_ = latlong('Niue');
isa_ok($_, 'ARRAY');
@_ = @$_;
is($_[0], '-19.0333', 'lat');
is($_[1], '-169.8667', 'lon');

$_ = latlong('Great Britain');
isa_ok($_, 'ARRAY');
@_ = @$_;
is($_[0], 54, 'lat');
is($_[1], -2, 'lon');

is(latlong('Hyperion'), undef, 'bad country name');

isnt(Geography::Countries::LatLong::supports('Hungary'),undef,'supports');
is(Geography::Countries::LatLong::supports('Judea'),"",'supports');

# diag scalar keys %$Geography::Countries::LatLong::countries_latlong;

ok( Geography::Countries::LatLong::USE_OLD_DATA(), 'use old data');
$_ = latlong('Great Britain');
isa_ok($_, 'ARRAY');
@_ = @$_;
is($_[0], '55.40342', 'lat');
is($_[1], '-3.21145', 'lon');


exit;