diff options
author | Alessandro Ranellucci <aar@cpan.org> | 2013-07-16 00:57:22 +0400 |
---|---|---|
committer | Alessandro Ranellucci <aar@cpan.org> | 2013-07-16 00:57:22 +0400 |
commit | ab6b3d41a72cff47b3acf642bcc4a227da97bcf4 (patch) | |
tree | 183980572bb2ccfe24dd01bd89cc3a65abf1d334 /t/geometry.t | |
parent | 9af2a1c007ae185ef665efe80e576b1997d2e819 (diff) |
XS interface completed, including new Line class
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 e96ec729f..ac808fa1d 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -158,7 +158,7 @@ is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_po { my $polyline = Slic3r::Polyline->new([0, 0], [10, 0], [20, 0]); - is_deeply [ map $_->arrayref_pp, $polyline->lines ], [ + is_deeply [ map $_->pp, $polyline->lines ], [ [ [0, 0], [10, 0] ], [ [10, 0], [20, 0] ], ], 'polyline_lines'; @@ -170,7 +170,7 @@ is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_po my $polyline = Slic3r::Polygon->new([0, 0], [10, 0], [5, 5]); my $result = $polyline->split_at_index(1); is ref($result), 'Slic3r::Polyline', 'split_at_index returns polyline'; - is_deeply $result->arrayref_pp, [ [10, 0], [5, 5], [0, 0], [10, 0] ], 'split_at_index'; + is_deeply $result->pp, [ [10, 0], [5, 5], [0, 0], [10, 0] ], 'split_at_index'; } #========================================================== |