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

@ -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(@_);