Add failing empty continuation test

noughtmare · Jun 16, 2023 · 6ac8d5b · 6ac8d5b
1 parent 9e1c8dd
commit 6ac8d5b
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tests/test.hs b/tests/test.hs
@@ -36,10 +36,12 @@ ndots = number 10 >>= go where
   go 0 = pure ()
   go n = char '.' *> go (n - 1)
 
-
 tests :: TestTree
 tests = testGroup "Tests" [unitTests]
 
+emptyk :: Parser ()
+emptyk = 'emptyk ::= emptyk <|> pure ()
+
 unitTests :: TestTree
 unitTests = testGroup "Unit tests"
   [ testCase "base 2 number positive" $
@@ -86,4 +88,7 @@ unitTests = testGroup "Unit tests"
       , "3....."
       , "10"
       ]
+  , localOption (Timeout 1000000 "1s") $
+    testCase "emptyk positive" $ 
+      parse emptyk "" @?= [()]
   ]