a0db24b0a5
This commit 1. rename Package with PackageBaseName 2. Pacakge = (PackageBaseName, Maybe String) to save its id 3. Expose packages with id if available
24 lines
667 B
Haskell
24 lines
667 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"
|