Added tests

dtekcth · Jul 31, 2024 · d536c7a · d536c7a
1 parent f406ec1
commit d536c7a
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 1 deletion.
diff --git a/test/Main.hs b/test/Main.hs
@@ -57,7 +57,7 @@ main = hspec $ do
     )
 
   describe "Cafe Linsen" $ it
-    "parses two blob of JSON without error"
+    "parses a blob of JSON without error"
     (do
       s1 <- BL.readFile "test/linsen1.json"
       testFun
@@ -73,13 +73,29 @@ main = hspec $ do
         ]) (L.parse
               (fromGregorian 2024 05 31)
               (fromJust $ decode s1))
+    )
+
+  describe "Cafe Linsen" $ it
+    "parses a blob of JSON without error, that has no lunch"
+    (do
       s2 <- BL.readFile "test/linsen2.json" -- Test that has no lunch
       testFun (Left NoLunch)
         (L.parse
               (fromGregorian 2024 06 06)
               (fromJust $ decode s2))
     )
 
+
+  describe "Cafe Linsen" $ it
+    "parses a blob of JSON without error, that has the wrong week"
+    (do
+      s3 <- BL.readFile "test/linsen3.json"
+      testFun (Left NoLunch)
+        (L.parse
+              (fromGregorian 2024 06 26)
+              (fromJust $ decode s3))
+    )
+
   describe "The Wijkander's"
     $ it "Parses two blobs of HTML correctly on fridays"
     $ do