Return ExtrusionPath->polyline and ExtrusionLoop->polygon by reference

This commit is contained in:
Alessandro Ranellucci 2013-08-31 00:50:03 +02:00
parent d2e4bba074
commit dd70f6be2f
6 changed files with 26 additions and 10 deletions

View file

@ -17,7 +17,7 @@ my $loop = Slic3r::ExtrusionLoop->new(
polygon => Slic3r::Polygon->new(@$square),
role => Slic3r::ExtrusionPath::EXTR_ROLE_EXTERNAL_PERIMETER,
);
isa_ok $loop->polygon, 'Slic3r::Polygon', 'loop polygon';
isa_ok $loop->polygon, 'Slic3r::Polygon::Ref', 'loop polygon';
is_deeply $loop->polygon->pp, $square, 'polygon points roundtrip';
$loop = $loop->clone;