#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 2;
use Boost::Geometry::Utils qw(polygon multi_polygon);
{
my $p = [
[ # ccw
[10, 10],
[200, 10],
[200, 200],
[10, 200],
],
[ # cw
[14, 14],
[14, 16],
[16, 16],
[16, 14],
],
[ # cw
[54, 54],
[54, 56],
[56, 56],
[56, 54],
],
];
is_deeply Boost::Geometry::Utils::_polygon_arrayref(polygon(@$p)), $p, 'polygon conversion roundtrip';
is_deeply Boost::Geometry::Utils::_multi_polygon_arrayref(multi_polygon($p)), [$p], 'multi_polygon conversion roundtrip';
}
__END__