From a9190efcaa5dcf444371b7aa6220816617a093d5 Mon Sep 17 00:00:00 2001
From: "Mahler, Thomas" <thomas.mahler@ista.com>
Date: Mon, 6 Apr 2020 09:24:53 +0200
Subject: [PATCH] fix test case

---
 test/Tests/AllTestsSpec.hs | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/test/Tests/AllTestsSpec.hs b/test/Tests/AllTestsSpec.hs
index 031e12d..d0a01b6 100644
--- a/test/Tests/AllTestsSpec.hs
+++ b/test/Tests/AllTestsSpec.hs
@@ -15,7 +15,6 @@ spec =
     it "can handle user defined controll structures" $
       cond [(False, viciousCircle), 
             (True, 3), 
-            (True, 5), 
-            (False, viciousCircle)] `shouldBe` [3,5]
+            (False, viciousCircle)] `shouldBe` 3
     it "can build trees" $
       show (Node (Leaf 1) (Node (Leaf 2) (Leaf 3))) `shouldBe` "Node (Leaf 1) (Node (Leaf 2) (Leaf 3))"
\ No newline at end of file