#!/usr/bin/perl

use warnings;
use strict;

use Test::More tests => 3;

use Geo::WKT qw/wkt_multipoint/;
use Geo::Point;

#### Create

is(wkt_multipoint([1,2], [3,4])
  ,'MULTIPOINT(POINT(1 2),POINT(3 4))', 'by array');

my $gp1 = Geo::Point->xy(5,6);
my $gp2 = Geo::Point->xy(7,8);
my $gp3 = Geo::Point->xy(12,2);

is(wkt_multipoint($gp1),'MULTIPOINT(POINT(5 6))', 'one Geo::Point');
is(wkt_multipoint($gp1,$gp2,$gp3,$gp1),
   'MULTIPOINT(POINT(5 6),POINT(7 8),POINT(12 2),POINT(5 6))', '4 Geo::Points');