Added unit testing to prevent regression about disconnected infill paths

This commit is contained in:
Alessandro Ranellucci 2012-08-25 14:59:34 +02:00
parent 65b11fa850
commit af1b64a086
2 changed files with 30 additions and 5 deletions

View file

@ -144,6 +144,7 @@ sub rotate {
my $self = shift;
my ($angle, $center) = @_;
@$self = Slic3r::Geometry::rotate_points($angle, $center, @$self);
bless $_, 'Slic3r::Point' for @$self;
return $self;
}
@ -151,6 +152,7 @@ sub translate {
my $self = shift;
my ($x, $y) = @_;
@$self = Slic3r::Geometry::move_points([$x, $y], @$self);
bless $_, 'Slic3r::Point' for @$self;
return $self;
}