From d9a7fcf4e63f85dc4cd8254cd58c006d3380792b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Mateusz=20Czapli=C4=B9=E2=80=9Eski?= <czapkofan@gmail.com>
Date: Mon, 8 Dec 2014 20:31:21 +0100
Subject: [PATCH] add test displaying issue #4

---
 bugs_test.go | 45 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 45 insertions(+)

diff --git a/bugs_test.go b/bugs_test.go
index 0cd1481..20d2188 100644
--- a/bugs_test.go
+++ b/bugs_test.go
@@ -5,6 +5,7 @@ import (
 	"github.com/akavel/polyclip-go"
 	"sort"
 	. "testing"
+	"time"
 )
 
 type sorter polyclip.Polygon
@@ -114,3 +115,47 @@ func TestBug3(t *T) {
 		}
 	}
 }
+
+func TestBug4(t *T) {
+	if Short() {
+		return
+	}
+
+	cases := []struct{ subject, clipping, result polyclip.Polygon }{
+		// original reported github issue #4, resulting in infinte loop
+		{
+			subject: polyclip.Polygon{{
+				{1.427255375e+06, -2.3283064365386963e-10},
+				{1.4271285e+06, 134.7111358642578},
+				{1.427109e+06, 178.30108642578125}}},
+			clipping: polyclip.Polygon{{
+				{1.416e+06, -12000},
+				{1.428e+06, -12000},
+				{1.428e+06, 0},
+				{1.416e+06, 0},
+				{1.416e+06, -12000}}},
+			result: polyclip.Polygon{},
+		},
+	}
+	for _, c := range cases {
+		// check that we get a result in finite time
+
+		ch := make(chan polyclip.Polygon)
+		go func() {
+			ch <- c.subject.Construct(polyclip.UNION, c.clipping)
+		}()
+
+		var result polyclip.Polygon
+		select {
+		case result = <-ch:
+		case <-time.After(1 * time.Second):
+			// panicking in attempt to get full stacktrace
+			panic(fmt.Sprintf("case UNION:\nsubject:  %v\nclipping: %v\ntimed out.", c.subject, c.clipping))
+		}
+		s := dump(result)
+		if s != dump(c.result) {
+			t.Errorf("case UNION:\nsubject:  %v\nclipping: %v\nexpected: %v\ngot:      %v",
+				c.subject, c.clipping, c.result, s)
+		}
+	}
+}