1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
#!/usr/bin/runhaskell
import Distribution.Simple
import Distribution.Simple.LocalBuildInfo (LocalBuildInfo(buildDir))
import Distribution.Simple.Program
import System.Directory
import System.Exit
import System.FilePath ((</>))
import System.Process
main = copyFile "debian/changelog" "changelog" >>
defaultMainWithHooks simpleUserHooks {
runTests = \ _ _ _ lbi -> runTestScript lbi
}
runTestScript lbi =
system (buildDir lbi </> "debian-tests/debian-tests") >>= \ code ->
if code == ExitSuccess then return () else error "Test Failure"
|
