diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2014-06-25 13:02:09 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2014-06-25 13:02:09 +0400 |
commit | 8b60db55debdc4d62639f8dd093e56762cdfdc23 (patch) | |
tree | ab674230a019f7fbb3c9ea5013a6eb043d5250ec | |
parent | a11f31c0a8ec2929186b3086454164ae19360834 (diff) |
Fix tests
-rw-r--r-- | lib/Slic3r/Polygon.pm | 1 | ||||
-rw-r--r-- | t/geometry.t | 4 |
2 files changed, 2 insertions, 3 deletions
diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm index ea18e8ced..01d72dd47 100644 --- a/lib/Slic3r/Polygon.pm +++ b/lib/Slic3r/Polygon.pm @@ -64,7 +64,6 @@ sub concave_points { my $vertex_angle = Slic3r::Geometry::angle3points(@points_pp[$i, $i-1, $i+1]); if ($vertex_angle <= $ccw_angle) { push @concave, $points[$i]; - use XXX; YYY ($points[$i]->pp); } } return [@concave]; diff --git a/t/geometry.t b/t/geometry.t index a9326782b..24fbf52d9 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -191,7 +191,7 @@ my $polygons = [ #========================================================== { - my $square = Slic3r::Polygon->new( + my $square = Slic3r::Polygon->new_scale( [150,100], [200,100], [200,200], @@ -203,7 +203,7 @@ my $polygons = [ } { - my $square = Slic3r::Polygon->new( + my $square = Slic3r::Polygon->new_scale( [200,200], [100,200], [100,100], |