diff options
| author | Alessandro Ranellucci <aar@cpan.org> | 2013-02-04 17:27:23 +0400 |
|---|---|---|
| committer | Alessandro Ranellucci <aar@cpan.org> | 2013-02-04 17:27:23 +0400 |
| commit | 7d08796b0a976ecddd71d860a5055dc7702e65d3 (patch) | |
| tree | 7e5d1fae8e9de234255904dd764148da25edd4e4 /t/geometry.t | |
| parent | 3794d51cc72ecb178121104f786f5eab22e556ef (diff) | |
Remove sporadic duplicate useless lines. #772
Diffstat (limited to 't/geometry.t')
| -rw-r--r-- | t/geometry.t | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/t/geometry.t b/t/geometry.t index f5c2f412e..c0e1f753b 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -2,7 +2,7 @@ use Test::More; use strict; use warnings; -plan tests => 21; +plan tests => 23; BEGIN { use FindBin; @@ -164,4 +164,13 @@ is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_po ], 'polyline_lines'; } +#========================================================== + +{ + 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, [ [10, 0], [5, 5], [0, 0], [10, 0] ], 'split_at_index'; +} + #==========================================================
\ No newline at end of file |