use strict;
plan tests => 2 * blocks;
run {
my $block = shift;
my ($fproj,$flat,$flng) = split(/\n/,$block->input);
my ($tproj,$tlat,$tlng) = split(/\n/,$block->expected);
my $pf = Geo::Point->latlong($flat, $flng, $fproj);
my $pt = Geo::Proj->to($pf->proj, $tproj, [$pf->long, $pf->lat]);
is sprintf("%.6f",$pt->[1]), $tlat;
is sprintf("%.6f",$pt->[0]), $tlng;
};
__END__
===
--- input
wgs84
35.000000
135.000000
--- expected
tokyo
34.996802
135.002793
===
--- input
wgs84
35.000000
135.000000
--- expected
tokyo97
34.996802
135.002793
===
--- input
wgs84
35.000000
135.000000
--- expected
jgd2000
35.000000
135.000000
===
--- input
tokyo
35.000000
135.000000
--- expected
wgs84
35.003197
134.997208
===
--- input
tokyo97
35.000000
135.000000
--- expected
wgs84
35.003197
134.997208
===
--- input
jgd2000
35.000000
135.000000
--- expected
wgs84
35.000000
135.000000