From 531332ad3cbb1733d18050fdb9c58a893bb48bac Mon Sep 17 00:00:00 2001 From: David Waern Date: Tue, 4 Nov 2008 23:57:41 +0000 Subject: Output version info before running tests --- tests/runtests.hs | 2 ++ 1 file changed, 2 insertions(+) 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 -- cgit v1.2.3