From cfd271aa883b85a4dca15c50dc057d7d8ab24728 Mon Sep 17 00:00:00 2001
From: Alexander Iljin <ajsoft@yandex.ru>
Date: Thu, 19 Jan 2017 13:13:47 +0300
Subject: [PATCH] charts.lines: add tests for 2-point-chunk
---
lines/lines-tests.factor | 24 ++++++++++++++++++++++++
1 file changed, 24 insertions(+)
diff --git a/lines/lines-tests.factor b/lines/lines-tests.factor
index b02e7274df..a2f38ebaba 100644
--- a/lines/lines-tests.factor
+++ b/lines/lines-tests.factor
@@ -23,6 +23,30 @@ IN: charts.lines.tests
[ { 1 } last2 ] must-fail
[ { } last2 ] must-fail
+! 2-point-chunk upwards
+{
+ { { -3 -3 } { 3 3 } }
+} [
+ { { -6 0 } { -5 -5 } } { { 5 5 } { 6 0 } }
+ -3 3 2-point-chunk
+] unit-test
+
+! 2-point-chunk downwards
+{
+ { { -3 3 } { 3 -3 } }
+} [
+ { { -6 0 } { -5 5 } } { { 5 -5 } { 6 0 } }
+ -3 3 2-point-chunk
+] unit-test
+
+! 2-point-chunk: same x coord
+{
+ { { -5 -3 } { -5 3 } }
+} [
+ { { -6 0 } { -5 -5 } } { { -5 5 } { 6 0 } }
+ -3 3 2-point-chunk
+] unit-test
+
! tight bounds
{
{ { { 0 0 } { 0 1 } { 1 2 } { 1 3 } { 2 5 } } }