diff options
| author | Alessandro Ranellucci <aar@cpan.org> | 2013-11-24 03:59:45 +0400 |
|---|---|---|
| committer | Alessandro Ranellucci <aar@cpan.org> | 2013-11-24 03:59:45 +0400 |
| commit | a29eeb7789345054c4d2d26b787e5b6b1acc6cec (patch) | |
| tree | 4264c26b0610d0ebb1074cc03fea424af2a80f49 /t/geometry.t | |
| parent | a93c862338e5e381e2124d3823a944160eb5f593 (diff) | |
Fix t/geometry.t
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 484455bcc..910535586 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 epsilon scale); + chained_path_from 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 = @points[@{chained_path(\@points, $points[0])}]; + my @ordered = @points[@{chained_path_from(\@points, $points[0])}]; ok !(grep { abs($ordered[$_]->distance_to($ordered[$_+1]) - scale 26) > epsilon } 0..$#ordered-1), 'chained_path'; } |