#!/usr/bin/env perl
use warnings;
use strict;
use Test::More tests => 1;
use Geo::WKT qw/wkt_multilinestring/;
use Geo::Point;
#### Create
my @line1 = ([1,2], [3,4]);
my $gp1 = Geo::Point->xy(5,6);
my $gp2 = Geo::Point->xy(7,8);
my $gp3 = Geo::Point->xy(12,2);
my @line2 = ($gp1, $gp2, $gp3);
is(wkt_multilinestring(\@line1, \@line2)
,'MULTILINESTRING(LINESTRING(1 2,3 4),LINESTRING(5 6,7 8,12 2))');