removing fast/slow code.
This commit is contained in:
@@ -1,23 +0,0 @@
|
||||
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"
|
||||
Reference in New Issue
Block a user