hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Print useful information when running spec

Browse Source
This commit is contained in:
Daniel Gröber 2014-05-09 20:37:55 +02:00
parent 8741323f5b
commit 44b897c6a5
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
test/Main.hs
View File

@ -1,9 +1,13 @@
{-# LANGUAGE ScopedTypeVariables #-}
import Spec import Spec
import Dir import Dir
import Test.Hspec import Test.Hspec
import System.Process import System.Process
import Language.Haskell.GhcMod (debugInfo, defaultOptions, findCradle)
import Control.Exception as E
main = do main = do
let sandboxes = [ "test/data", "test/data/check-packageid" let sandboxes = [ "test/data", "test/data/check-packageid"
, "test/data/duplicate-pkgver/" ] , "test/data/duplicate-pkgver/" ]
@ -17,4 +21,10 @@ main = do
genSandboxCfg `mapM_` sandboxes genSandboxCfg `mapM_` sandboxes
genGhcPkgCache `mapM_` pkgDirs genGhcPkgCache `mapM_` pkgDirs
system "find test -name setup-config -exec rm {} \\;" system "find test -name setup-config -exec rm {} \\;"
system "cabal --version"
system "ghc --version"
(putStrLn =<< debugInfo defaultOptions =<< findCradle)
`E.catch` (\(_ :: E.SomeException) -> return () )
hspec spec hspec spec