]> git.wincent.com - docvim.git/blobdiff - tests/tasty.hs
Make unit tests a little more real
[docvim.git] / tests / tasty.hs
index caa4b85c114b067d6f517cc2e9a8513d86438cc4..820e56259ade2220cb0d0863cc11733767e716ae 100644 (file)
@@ -1,13 +1,26 @@
 module Main (main) where
 
+import Docvim.Parse (parseUnit)
 import Test.Tasty
 import Test.Tasty.HUnit
 
+-- | Crude check to see if parse worked.
+parseSuccess :: Either a b -> Bool
+parseSuccess (Left _) = False
+parseSuccess _        = True
+
+parseFailure :: Either a b -> Bool
+parseFailure = not . parseSuccess
+
 suite :: TestTree
 suite = testGroup "Test suite"
   [ testGroup "Unit tests"
-    [ testCase "Equality" $ True @=? True
-    , testCase "Assertion" $ assert $ (length [1, 2, 3]) == 3
+    [ testCase "Parse empty unit" $ assert $ parseSuccess (parseUnit "")
+    , testCase "Bad input" $ assert $ parseFailure (parseUnit "bzzzzt")
+
+    -- Some example syntax:
+    -- , testCase "Equality" $ True @=? True
+    -- , testCase "Assertion" $ assert $ (length [1, 2, 3]) == 3
     ]
   ]