blob: bdef399a80efcd24f8dcb2c66c68a23473a0e65e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
import Distribution.Simple
import System.Process ( runCommand, waitForProcess )
import System.Directory ( setCurrentDirectory )
main = defaultMainWithHooks (simpleUserHooks {runTests = runTestSuite})
testDir = "tests"
runTestSuite _ _ _ _ = do
setCurrentDirectory testDir
runCommand "runhaskell RunTests.hs" >>= waitForProcess
return ()
|