Introduced tests

2 files changed, 19 insertions, 0 deletions

diff --git a/test/Language.hs b/test/Language.hs
new file mode 100644
index 0000000..9479380
--- /dev/null
+++ b/test/Language.hs
@@ -0,0 +1,11 @@
+module Language where
+
+import Compiler
+import Lexer (scan)
+import Parser (parse)
+import Test.HUnit
+
+testCase = TestCase $ do
+  assertEqual "placeholder" True True
+
+language = [testCase]
diff --git a/test/Main.hs b/test/Main.hs
new file mode 100644
index 0000000..a5d03a3
--- /dev/null
+++ b/test/Main.hs
@@ -0,0 +1,8 @@
+import Language (language)
+import System.Exit
+import Test.HUnit
+
+main :: IO Counts
+main = do
+  counts <- runTestTT $ test language
+  if errors counts + failures counts == 0 then exitSuccess else exitFailure