72a5b149a9fbe6616389b0985eb96a8b3ba4167e
[packages/hoopl.git] / testing / Main.hs
1 module Main (main) where
2
3 import Test
4
5 -- Hardcoding test locations for now
6 tests = map (\t -> "tests" ++ "/" ++ t)
7 (["test1", "test2", "test3", "test4"] ++
8 ["if-test", "if-test2", "if-test3", "if-test4"])
9
10 main :: IO ()
11 main = do mapM (\x -> putStrLn ("Test:" ++ x) >> parseTest x >> optTest x) tests
12 return ()