tests: initial setup to unit testing

BRonen · Feb 11, 2024 · 5a59965 · 5a59965
1 parent f197f93
commit 5a59965
Showing 1 changed file with 13 additions and 1 deletion.
diff --git a/test/Spec.hs b/test/Spec.hs
@@ -1,2 +1,14 @@
+module Main (main) where
+
+import Test.Tasty
+import Test.Tasty.HUnit
+
 main :: IO ()
-main = putStrLn "Test suite not yet implemented"
+main = do
+  defaultMain $ testGroup "Root" [test1, test2]
+
+test1 :: TestTree
+test1 = testCase "2+2=4" $ (2 + 2 :: Integer) @?= (4 :: Integer)
+
+test2 :: TestTree
+test2 = testCase "7 is even" $ assertBool "Oops, 7 is odd" (odd (7 :: Integer))