#!perl -wT
use strict;
use Test::Most tests => 6;
BEGIN {
use_ok('Geo::Location::Point');
}
DISTANCE: {
my $loc1 = new_ok('Geo::Location::Point' => [
Latitude => 51.34203083,
long => 1.31609075,
county => 'Kent',
country => 'GB'
]);
my $loc2 = new_ok('Geo::Location::Point' => [
lat => 51.34015944,
Longitude => 1.31580976,
county => 'Kent',
country => 'GB'
]);
delta_within($loc1->distance($loc2)->yards(), 300, 100);
# ok($loc1->distance($loc2)->yards() == $loc2->distance($loc1)->yards());
delta_within($loc1->distance($loc2)->yards(), $loc2->distance($loc1)->yards(), 1e-9);
}