#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;
use Boost::Geometry::Utils qw(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, 'conversion roundtrip';
}
__END__