aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDavid Waern <david.waern@gmail.com>2008-11-04 23:57:41 +0000
committerDavid Waern <david.waern@gmail.com>2008-11-04 23:57:41 +0000
commit531332ad3cbb1733d18050fdb9c58a893bb48bac (patch)
treebddb88661ab2f967f1585111fa331728ceba17ae
parent8819faaa78a356feda414334a1c75aa3a27ac725 (diff)
Output version info before running tests
-rw-r--r--tests/runtests.hs2
1 files changed, 2 insertions, 0 deletions
diff --git a/tests/runtests.hs b/tests/runtests.hs
index ae250164..e2148dca 100644
--- a/tests/runtests.hs
+++ b/tests/runtests.hs
@@ -47,6 +47,8 @@ test = do
let mods = filter ((==) ".hs" . takeExtension) contents
let outdir = "output"
let mods' = map ("tests" </>) mods
+ runProcess "../dist/build/haddock/haddock" ["--version"] Nothing (Just [("HADDOCK_DATA_DIR", "../.")]) Nothing Nothing Nothing
+ runProcess "../dist/build/haddock/haddock" ["--ghc-version"] Nothing (Just [("HADDOCK_DATA_DIR", "../.")]) Nothing Nothing Nothing
handle <- runProcess "../dist/build/haddock/haddock" (["-w", "-o", outdir, "-h", "--optghc=-fglasgow-exts", "--optghc=-w"] ++ mods') Nothing (Just [("HADDOCK_DATA_DIR", "../.")]) Nothing Nothing Nothing
code <- waitForProcess handle