Polyline->lines

This commit is contained in:
Alessandro Ranellucci 2013-07-15 23:12:13 +02:00
parent ab6b3d41a7
commit 439255ca46
5 changed files with 39 additions and 1 deletions

View file

@ -14,7 +14,7 @@ my $square = [ # ccw
];
my $polygon = Slic3r::Polygon->new(@$square);
is_deeply [ @{$polygon->pp} ], [ @$square ], 'polygon roundtrip';
is_deeply $polygon->pp, $square, 'polygon roundtrip';
is ref($polygon->arrayref), 'ARRAY', 'polygon arrayref is unblessed';
isa_ok $polygon->[0], 'Slic3r::Point', 'polygon point is blessed';