diff options
| author | Alessandro Ranellucci <aar@cpan.org> | 2013-11-24 00:42:01 +0400 |
|---|---|---|
| committer | Alessandro Ranellucci <aar@cpan.org> | 2013-11-24 00:42:01 +0400 |
| commit | 0045f84ed2debb5bb5f4b2e05515a4b1e0506da5 (patch) | |
| tree | 01af95d1618ff2bcfe22f93eca96c36e9f0fb32d /t/geometry.t | |
| parent | 0516aac71588d9558fff9ab9cfd125d41af6b412 (diff) | |
Removed chained_path_points()
Diffstat (limited to 't/geometry.t')
| -rw-r--r-- | t/geometry.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/t/geometry.t b/t/geometry.t index 4edb63dae..484455bcc 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -11,7 +11,7 @@ BEGIN { use Slic3r; use Slic3r::Geometry qw(PI polygon_is_convex - chained_path_points epsilon scale); + chained_path epsilon scale); #========================================================== @@ -162,7 +162,7 @@ my $polygons = [ # if chained_path() works correctly, these points should be joined with no diagonal paths # (thus 26 units long) my @points = map Slic3r::Point->new_scale(@$_), [26,26],[52,26],[0,26],[26,52],[26,0],[0,52],[52,52],[52,0]; - my @ordered = @{chained_path_points(\@points, $points[0])}; + my @ordered = @points[@{chained_path(\@points, $points[0])}]; ok !(grep { abs($ordered[$_]->distance_to($ordered[$_+1]) - scale 26) > epsilon } 0..$#ordered-1), 'chained_path'; } |