From 23e6abff49b5e789086160da30414066b224ecc8 Mon Sep 17 00:00:00 2001
From: Alessandro Ranellucci <aar@cpan.org>
Date: Tue, 8 Apr 2014 13:08:42 +0200
Subject: [PATCH] Added first unit test for bridge direction

---
 lib/Slic3r/Layer/BridgeDetector.pm |  3 ++-
 t/bridges.t                        | 34 ++++++++++++++++++++++++++++++
 2 files changed, 36 insertions(+), 1 deletion(-)
 create mode 100644 t/bridges.t

diff --git a/lib/Slic3r/Layer/BridgeDetector.pm b/lib/Slic3r/Layer/BridgeDetector.pm
index c65589239..04de6c20d 100644
--- a/lib/Slic3r/Layer/BridgeDetector.pm
+++ b/lib/Slic3r/Layer/BridgeDetector.pm
@@ -1,8 +1,9 @@
 package Slic3r::Layer::BridgeDetector;
 use Moo;
 
+use List::Util qw(first sum);
 use Slic3r::Geometry qw(PI);
-use Slic3r::Geometry::Clipper qw(intersection_pl);
+use Slic3r::Geometry::Clipper qw(intersection_pl intersection_ex);
 
 has 'lower_slices'      => (is => 'ro', required => 1);  # ExPolygons or ExPolygonCollection
 has 'perimeter_flow'    => (is => 'ro', required => 1);
diff --git a/t/bridges.t b/t/bridges.t
new file mode 100644
index 000000000..8a5d7c48a
--- /dev/null
+++ b/t/bridges.t
@@ -0,0 +1,34 @@
+use Test::More tests => 1;
+use strict;
+use warnings;
+
+BEGIN {
+    use FindBin;
+    use lib "$FindBin::Bin/../lib";
+}
+
+use List::Util qw(first);
+use Slic3r;
+use Slic3r::Geometry qw(scale);
+use Slic3r::Test;
+
+my $flow = Slic3r::Flow->new(width => 0.5, spacing => 0.45, nozzle_diameter => 0.5);
+
+{
+    my $lower = Slic3r::ExPolygon->new(
+        Slic3r::Polygon->new_scale([0,0], [20,0], [20,10], [0,10]),
+        Slic3r::Polygon->new_scale([2,2], [2,8], [18,8], [18,2]),
+    );
+    my $bridge = $lower->[1]->clone;
+    $bridge->reverse;
+    $bridge = Slic3r::ExPolygon->new($bridge);
+    my $bd = Slic3r::Layer::BridgeDetector->new(
+        lower_slices    => [$lower],
+        perimeter_flow  => $flow,
+        infill_flow     => $flow,
+    );
+    # 0 is North/South
+    is $bd->detect_angle($bridge), 0, 'correct bridge angle detected';
+}
+
+__END__