Failing test cases for Clipper bug returning empty result set. #2028

This commit is contained in:
Alessandro Ranellucci 2014-05-12 22:28:26 +02:00
parent 70ceb853f1
commit fcdb462abe
3 changed files with 29 additions and 2 deletions

View file

@ -302,7 +302,7 @@ sub make_perimeters {
height => $self->height,
);
}
# reapply the nearest point search for starting point
# (clone because the collection gets DESTROY'ed)
# We allow polyline reversal because Clipper may have randomly

View file

@ -15,6 +15,11 @@ sub wkt {
return sprintf "POLYGON((%s))", join ',', map "$_->[0] $_->[1]", @$self;
}
sub dump_perl {
my $self = shift;
return sprintf "[%s]", join ',', map "[$_->[0],$_->[1]]", @$self;
}
sub grow {
my $self = shift;
return $self->split_at_first_point->grow(@_);