#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 8;

use Geo::WKT qw/parse_wkt_point wkt_point/;

#### Parse

my $p1 = parse_wkt_point "POINT(2.5 8)";
isa_ok($p1, 'Geo::Point', 'parse point');
is($p1->toString, 'point[wgs84](8.0000 2.5000)');

my $p2 = parse_wkt_point "POINT(3.5 6.7)", 'wgs84';
isa_ok($p2, 'Geo::Point', 'parse point with coordinate');
is($p2->toString, 'point[wgs84](6.7000 3.5000)');

#### Create

is(wkt_point(4.5, 8),     'POINT(4.5 8)', 'create from LIST');
is(wkt_point([5.5, 9.5]), 'POINT(5.5 9.5)', 'create from ARRAY');
is(wkt_point($p1),        'POINT(2.5 8)', 'create from Geo::Point p1');
is(wkt_point($p2),        'POINT(3.5 6.7)', 'create from Geo::Point p2');