Make tests happy about the new Boost::Geometry::Utils working with integers

This commit is contained in:
Alessandro Ranellucci 2013-01-28 00:40:08 +01:00
parent 721b61e798
commit 4d70748723
2 changed files with 6 additions and 5 deletions

View File

@ -32,8 +32,9 @@ use Slic3r;
my $polyline = Slic3r::Polyline->new([
[0,0],[0.5,0.5],[1,0],[1.25,-0.25],[1.5,.5],
]);
$polyline->simplify(0.25);
is_deeply $polyline, [ [0, 0], [0.5, 0.5], [1.25, -0.25], [1.5, 0.5] ], 'Douglas-Peucker';
$polyline->scale(100);
$polyline->simplify(25);
is_deeply $polyline, [ [0, 0], [50, 50], [125, -25], [150, 50] ], 'Douglas-Peucker';
}
{

View File

@ -92,7 +92,7 @@ is_deeply $intersection, [ [12, 12], [18, 16] ], 'internal lines are preserved';
{
my $intersections = $expolygon->clip_line(Slic3r::Line->new(reverse @$line));
is_deeply $intersections, [
[ [20, 15], [16, 15] ],
[ [20, 15], [15, 15] ],
[ [14, 15], [10, 15] ],
], 'reverse line is clipped to square with hole';
}
@ -144,8 +144,8 @@ is_deeply $intersection, [ [12, 12], [18, 16] ], 'internal lines are preserved';
my $intersections = $expolygon->clip_line($line);
is_deeply $intersections, [
[ [152.742, 288.087], [152.742, 215.179], ],
[ [152.742, 108.088], [152.742, 35.1665] ],
[ [152, 287], [152, 214], ],
[ [152, 107], [152, 35] ],
], 'line is clipped to square with hole';
}