Added failing test case

This commit is contained in:
Alessandro Ranellucci 2013-08-25 22:51:12 +02:00
parent d786dd6c1c
commit 0933a2cf6b

View File

@ -4,7 +4,7 @@ use strict;
use warnings; use warnings;
use Slic3r::XS; use Slic3r::XS;
use Test::More tests => 3; use Test::More tests => 4;
my $square = [ # ccw my $square = [ # ccw
[200, 100], [200, 100],
@ -47,7 +47,23 @@ my $expolygon = Slic3r::ExPolygon->new($square, $hole_in_square);
[143, 157], [143, 157],
[157, 157], [157, 157],
[157, 143], [157, 143],
] ], 'offset_ex'; ] ], 'offset2_ex';
}
{
my $expolygon2 = Slic3r::ExPolygon->new([
[20000000, 0],
[20000000, 20000000],
[0, 20000000],
[0, 0],
], [
[5000000, 5000000],
[5000000, 15000000],
[15000000, 15000000],
[15000000, 5000000],
]);
my $result = Slic3r::Geometry::Clipper::offset2_ex([ @$expolygon2 ], +49900, -49900);
is_deeply $result->[0]->pp, $expolygon2->pp, 'offset2_ex';
} }
{ {