Added failing test case for upstream Clipper issue 126 (our #2639)

This commit is contained in:
Alessandro Ranellucci 2015-02-15 16:47:55 +01:00
parent 32b8eb489c
commit 8851dc7f23

View File

@ -179,7 +179,7 @@ if (0) { # Clipper does not preserve polyline orientation
}
{
# Disabled until Clipper bug #122 is fixed
# Clipper bug #122
my $subject = [
Slic3r::Polyline->new([1975,1975],[25,1975],[25,25],[1975,25],[1975,1975]),
];
@ -192,4 +192,17 @@ if (0) { # Clipper does not preserve polyline orientation
is scalar(@{$result->[0]}), 5, 'intersection_pl - result is not empty';
}
if (0) {
# Disabled until Clipper bug ### is fixed
my $subject = Slic3r::Polyline->new(
[200000,19799999],[200000,200000],[24304692,200000],[15102879,17506106],[13883200,19799999],[200000,19799999],
);
my $clip = [
Slic3r::Polygon->new([15257205,18493894],[14350057,20200000],[-200000,20200000],[-200000,-200000],[25196917,-200000]),
];
my $result = Slic3r::Geometry::Clipper::intersection_pl([$subject], $clip);
is scalar(@$result), 1, 'intersection_pl - result is not empty';
is $result->[0]->length, $subject->length, 'intersection_pl - result has same length as subject polyline';
}
__END__