use strict;
use Test::Base;
plan tests => 1 * blocks;
SKIP:{
eval "use Geo::Formatter qw(LocaPoint);";
skip "Geo::Formatter is not installed", 1 * blocks if($@);
run {
my $block = shift;
my ($lat,$lng) = split(/\n/,$block->input);
my ($locapo) = split(/\n/,$block->expected);
is $locapo, latlng2format('locapoint',$lat,$lng);
};
}
__END__
===
--- input
35.606954
139.567104
--- expected
SD7.XC0.GF5.TT8
===
--- input
-27.371768
-58.798831
--- expected
JB2.IT5.AZ7.XC7