2024-05-01 19:07:04 +00:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
import Test.HUnit
|
|
|
|
import TestLexer
|
2024-05-03 13:47:41 +00:00
|
|
|
import TestParser
|
2024-05-01 19:07:04 +00:00
|
|
|
|
|
|
|
|
2024-05-02 20:33:35 +00:00
|
|
|
tests = TestList [
|
2024-05-03 13:47:41 +00:00
|
|
|
TestLabel "TestLexer" TestLexer.tests,
|
|
|
|
TestLabel "TestParser" TestParser.tests
|
2024-05-02 20:33:35 +00:00
|
|
|
]
|
2024-05-01 19:07:04 +00:00
|
|
|
|
|
|
|
main = do runTestTTAndExit Main.tests
|