1 files changed, 27 insertions(+), 6 deletions(-)

M test/ucl-test.hs

@@ 9,9 9,30 @@ import System.Exit (exitFailure)
 -- TODO use quickcheck when printing is implemented
 main :: IO ()
 main = do
-  parsed1 <- parseString "0: 1min"
-  print parsed1
-  parsed <- parseString "\"a\": [12,34], 1:2, 1:3, 2:\"ab🌅c\", 3: yes, \"a\": [56], \"b\": \"foo\""
-  print parsed
-  unless (parsed == Right (UCLMap (fromList [("1",UCLInt 2),("2",UCLText "ab\127749c"),("3",UCLBool True),("a",UCLArray [UCLInt 12,UCLInt 34, UCLInt 56]),("b",UCLText "foo")])))
-     exitFailure
+  success <- allM (uncurry test)
+    [ ("0: 1min", UCLMap $ fromList [("0", UCLTime 60)])
+    , ( "\"a\": [12,34], 1:2, 1:3, 2:\"ab🌅c\", 3: yes, \"a\": [56], \"b\": \"foo\""
+      , UCLMap (fromList
+          [ ("1",UCLInt 2)
+          , ("2",UCLText "ab\127749c")
+          , ("3",UCLBool True)
+          , ("a",UCLArray [UCLInt 12, UCLInt 34, UCLInt 56])
+          , ("b",UCLText "foo")]))
+    ]
+  unless success exitFailure
+
+allM :: (Applicative m, Traversable f) => (a -> m Bool) -> f a -> m Bool
+allM f xs = and <$> traverse f xs
+
+-- TODO if this gets any bigger, use an actual test framework
+test :: String -> UCL -> IO Bool
+test str expected = do
+  actual <- parseString str
+  if actual == Right expected
+  then pure True
+  else do
+    putStrLn "expected:"
+    print expected
+    putStrLn "actual:"
+    print actual
+    pure False