started on a test suite

tests/Main.hs

@@ -0,0 +1,21 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+module Main where
+
+import           Grammar.Abs
+import           System.Exit       (exitFailure)
+import           Test.Hspec
+import           TypeChecker.AlgoW
+
+main :: IO ()
+main = do
+    print "RUNNING TESTS BROTHER"
+    exitFailure
+    -- hspec $ do
+    --     describe "the algorithm W" $ do
+    --         it "infers EInt as type Int" $ do
+    --             fmap fst (run (inferExp (EInt 1))) `shouldBe` Right (TMono "Int")
+    --         it "throws an exception if a variable is inferred with an empty env" $ do
+    --             run (inferExp (EId "x")) `shouldBe` Left "Unbound variable: x"
+    --         it "throws an exception if the annotated type does not match the inferred type" $ do
+    --             fmap fst (run (inferExp (EAnn (EInt 3) (TPol "a")))) `shouldBe` Right (TMono "bad")