From 3794d51cc72ecb178121104f786f5eab22e556ef Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Mon, 4 Feb 2013 14:21:59 +0100
Subject: [PATCH] Add unit test for polyline_lines

---
 t/geometry.t | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

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