@@ -1,15 +1,22 @@
11module Main where
22
3−import Test.Framework
3+import System.Directory
4+import System.Exit (exitWith)
5+import System.Environment (getArgs)
6+import Test.Framework.TestManager
47import Test.Framework.BlackBoxTest
58
69main :: IO ()
710main = do
8− tests <- blackBoxTests "tests/good" "dist/build/elm/elm" ".elm" args
9− htfMain tests
11+ args <- getArgs
12+ tests <- blackBoxTests "tests/good" "dist/build/elm/elm" ".elm" bbtArgs
13+ code <- runTestWithArgs args tests
14+ removeDirectoryRecursive "cache"
15+ removeDirectoryRecursive "build"
16+ exitWith code
1017
11−args = defaultBBTArgs { bbtArgs_stdoutDiff = ignoreDiff
12− , bbtArgs_stderrDiff = ignoreDiff }
18+bbtArgs = defaultBBTArgs { bbtArgs_stdoutDiff = ignoreDiff
19+ , bbtArgs_stderrDiff = ignoreDiff }
1320
1421ignoreDiff :: Diff
1522ignoreDiff _ _ = return Nothing