Testing the PROBLEM.md example

vrcmarcos · Nov 13, 2016 · 4619708 · 4619708
1 parent 1a301b9
commit 4619708
Showing 1 changed file with 12 additions and 1 deletion.
diff --git a/test/clj/collision/test/business/fraud.clj b/test/clj/collision/test/business/fraud.clj
@@ -6,4 +6,15 @@
   (testing "should return [[1 2]] as networks when empty network is given and add collision [1 2]"
     (is (= [[1 2]] (add-collision [] [1 2]))))
   (testing "should return [[1 2 3]] as networks when networks are [[1 2]] and add collision [2 3]"
-    (is (= [[1 2 3]] (add-collision [[1 2]] [2 3])))))
+    (is (= [[1 2 3]] (add-collision [[1 2]] [2 3]))))
+  (testing "should return [[1 2 3 4] [5 6 7]] when adding collisions [1, 2] [2, 3] [1, 4] [5, 6] [6, 7] to empty network"
+    (is (= [[1 2 3 4] [5 6 7]]
+           (add-collision
+             (add-collision
+               (add-collision
+                 (add-collision
+                   (add-collision [] [1 2])
+                   [2 3])
+                 [1 4])
+               [5 6])
+             [6 7])))))