Separating IO and Ghc.

This commit is contained in:
Kazu Yamamoto
2013-05-20 11:29:44 +09:00
parent f2f3b120af
commit 849c308e5c
17 changed files with 70 additions and 75 deletions

View File

@@ -1,18 +1,15 @@
module DebugSpec where
import CabalApi
import Cradle
import Debug
import Expectation
import Language.Haskell.GhcMod
import Test.Hspec
import Types
checkFast :: String -> String -> IO ()
checkFast file ans = withDirectory_ "test/data" $ do
(strVer,_) <- getGHCVersion
cradle <- findCradle Nothing strVer
res <- debug defaultOptions cradle strVer file
res `shouldContain` ans
res <- debugInfo defaultOptions cradle strVer file
lines res `shouldContain` ans
spec :: Spec
spec = do