diff --git a/test/Main.hs b/test/Main.hs index bd0c8f8..0700432 100644 --- a/test/Main.hs +++ b/test/Main.hs @@ -1,9 +1,13 @@ +{-# LANGUAGE ScopedTypeVariables #-} import Spec import Dir import Test.Hspec import System.Process +import Language.Haskell.GhcMod (debugInfo, defaultOptions, findCradle) +import Control.Exception as E + main = do let sandboxes = [ "test/data", "test/data/check-packageid" , "test/data/duplicate-pkgver/" ] @@ -17,4 +21,10 @@ main = do genSandboxCfg `mapM_` sandboxes genGhcPkgCache `mapM_` pkgDirs 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