diff options
| author | Alessandro Ranellucci <aar@cpan.org> | 2013-02-04 17:21:59 +0400 |
|---|---|---|
| committer | Alessandro Ranellucci <aar@cpan.org> | 2013-02-04 17:21:59 +0400 |
| commit | 3794d51cc72ecb178121104f786f5eab22e556ef (patch) | |
| tree | 9834a451f9a24c5bfa6cb315a3281705f598c597 /t/geometry.t | |
| parent | 9222526e030fb26e56a93dda4bc5bcfd180cdbda (diff) | |
Add unit test for polyline_lines
Diffstat (limited to 't/geometry.t')
| -rw-r--r-- | t/geometry.t | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/t/geometry.t b/t/geometry.t index 0ff61e375..f5c2f412e 100644 --- a/t/geometry.t +++ b/t/geometry.t @@ -2,7 +2,7 @@ use Test::More; use strict; use warnings; -plan tests => 20; +plan tests => 21; BEGIN { use FindBin; @@ -154,4 +154,14 @@ is Slic3r::Geometry::can_connect_points(@$points, $polygons), 0, 'can_connect_po is polygon_is_convex($convex1), 0, 'concave polygon'; } +#========================================================== + +{ + my $polyline = Slic3r::Polyline->new([0, 0], [10, 0], [20, 0]); + is_deeply [$polyline->lines], [ + [ [0, 0], [10, 0] ], + [ [10, 0], [20, 0] ], + ], 'polyline_lines'; +} + #==========================================================
\ No newline at end of file |