16 lines
326 B
Haskell
16 lines
326 B
Haskell
module Main (main) where
|
|
|
|
import Test.HUnit
|
|
import TestLexer
|
|
import TestParser
|
|
|
|
main :: IO ()
|
|
main = do
|
|
putStrLn "Testing Lexer"
|
|
lexTC <- runTestTT TestLexer.tests
|
|
putStrLn (showCounts lexTC)
|
|
putStrLn ""
|
|
putStrLn "Testing Parser"
|
|
parseTC <- runTestTT TestParser.tests
|
|
putStrLn (showCounts parseTC)
|
|
putStrLn ""
|