File: null.t

package info (click to toggle)
libgis-distance-perl 0.20-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 204 kB
  • sloc: perl: 587; makefile: 2
file content (17 lines) | stat: -rwxr-xr-x 312 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/env perl
use 5.008001;
use strictures 2;
use Test2::V0;

use GIS::Distance;

my $gis = GIS::Distance->new( 'GIS::Distance::Null' );

is(
    # Canoga Park to San Francisco.
    $gis->distance( 34.202361, -118.601875,  37.752258, -122.441254 ),
    0,
    'the hyperloop is working',
);

done_testing;