ghc-mod/test/DebugSpec.hs

24 lines
667 B
Haskell
Raw Normal View History

2013-03-13 04:37:17 +00:00
module DebugSpec where
2013-05-20 02:29:44 +00:00
import Language.Haskell.GhcMod
2013-03-13 04:37:17 +00:00
import Test.Hspec
2013-09-03 02:49:35 +00:00
import Dir
2013-03-13 04:37:17 +00:00
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]
2013-03-13 04:37:17 +00:00
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"