File: geo_point.t

package info (click to toggle)
liburi-perl 5.30-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 948 kB
  • sloc: perl: 3,936; makefile: 4
file content (22 lines) | stat: -rw-r--r-- 429 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
#!perl

use strict;
use warnings;

use URI::geo;
use Test::More;

eval { require Geo::Point };

plan skip_all => 'Needs Geo::Point' if $@;
plan tests => 5;

ok my $pt = Geo::Point->latlong( 48.208333, 16.372778 ), 'point';
ok my $guri = URI::geo->new( $pt ), 'uri';

is $guri->latitude,  48.208333, 'latitude';
is $guri->longitude, 16.372778, 'longitude';
is $guri->altitude,  undef,     'altitude';

# vim:ts=2:sw=2:et:ft=perl