2024-05-01 19:07:04 +00:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Test.HUnit
|
|
|
|
|
import TestLexer
|
2024-05-07 12:27:20 +00:00
|
|
|
import TestByteCodeGenerator
|
2024-05-01 19:07:04 +00:00
|
|
|
|
|
|
|
|
otherTest = TestCase $ assertEqual "math" (4+3) 7
|
|
|
|
|
|
2024-05-07 12:27:20 +00:00
|
|
|
tests = TestList [TestLabel "TestLexer" TestLexer.tests, TestLabel "mathTest" otherTest, TestLabel "bytecodeTest" TestByteCodeGenerator.tests]
|
2024-05-01 19:07:04 +00:00
|
|
|
|
|
|
|
|
main = do runTestTTAndExit Main.tests
|
