1#!/usr/bin/env perl 2use 5.008001; 3use strictures 2; 4use Test2::V0; 5 6use GIS::Distance; 7 8my $gis = GIS::Distance->new( 'GIS::Distance::Fast::Null' ); 9 10is( 11 # Egypt to Anchorage. 12 $gis->distance( 26.185018, 30.047607, 61.147543, -149.81575 ), 13 0, 14 'exactly zero', 15); 16 17done_testing; 18