3D-printing/OrcaSlicer
1
0
Fork 0
mirror of https://github.com/SoftFever/OrcaSlicer.git synced 2025-08-10 15:25:18 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions 2

Bless arrayref representation into Slic3r classes

Browse source
This commit is contained in:
Alessandro Ranellucci 2013-07-07 13:34:55 +02:00
parent 53e4532f9c
commit 989e48ede0
5 changed files with 11 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
xs/t/04_expolygon.t
View file

@ -4,7 +4,7 @@ use strict;
use warnings;
use Slic3r::XS;
use Test::More tests => 1;
use Test::More tests => 4;
my $square = [ # ccw
[100, 100],
@ -22,4 +22,8 @@ my $hole_in_square = [ # cw
my $expolygon = Slic3r::ExPolygon::XS->new($square, $hole_in_square);
is_deeply [ @$expolygon ], [$square, $hole_in_square], 'expolygon roundtrip';
isa_ok $expolygon->arrayref, 'Slic3r::ExPolygon', 'Perl expolygon is blessed';
isa_ok $expolygon->[0], 'Slic3r::Polygon', 'Perl polygons are blessed';
isa_ok $expolygon->[0][0], 'Slic3r::Point', 'Perl polygon points are blessed';
__END__