ghc-mod/test/DebugSpec.hs

24 lines
617 B
Haskell
Raw Normal View History

2013-03-13 04:37:17 +00:00
module DebugSpec where
import CabalApi
import Cradle
import Debug
import Expectation
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
spec :: Spec
spec = do
describe "debug" $ do
it "can check TH" $ do
checkFast "Main.hs" "Fast check: No"
checkFast "Foo.hs" "Fast check: Yes"
checkFast "Bar.hs" "Fast check: No"