From 8b60db55debdc4d62639f8dd093e56762cdfdc23 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Wed, 25 Jun 2014 11:02:09 +0200
Subject: [PATCH] Fix tests

---
 lib/Slic3r/Polygon.pm | 1 -
 t/geometry.t          | 4 ++--
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/lib/Slic3r/Polygon.pm b/lib/Slic3r/Polygon.pm
index ea18e8ced4..01d72dd47b 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 a9326782b5..24fbf52d93 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],