ghc-mod/test/DebugSpec.hs
2013-09-20 17:15:41 +09:00

24 lines
664 B
Haskell

module DebugSpec where
import Language.Haskell.GhcMod
import Test.Hspec
import Dir
checkFast :: String -> String -> IO ()
checkFast file ans = withDirectory_ "test/data" $ do
let cradle = Cradle "." Nothing Nothing []
res <- debugInfo defaultOptions cradle file
lines 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"
it "can check QuasiQuotes" $ do
checkFast "Baz.hs" "Fast check: No"