hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix resolveModule Cpp test

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-05 10:16:27 +02:00
parent f61dd0a9e6
commit aabbd5ce33
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
test/TargetSpec.hs
View File

@ -40,8 +40,8 @@ spec = do
describe "resolveModule" $ do describe "resolveModule" $ do
it "Works when a module given as path uses CPP" $ do it "Works when a module given as path uses CPP" $ do
dir <- getCurrentDirectory dir <- getCurrentDirectory
print dir
let srcDirs = [dir </> "test/data/target/src"] let srcDirs = [dir </> "test/data/target/src"]
withLightHscEnv [] $ \env -> runNullLog $ do withLightHscEnv [] $ \env -> runNullLog $ do
Just _ <- resolveModule env srcDirs (Left $ dir </> "test/data/target/src/A/B/C/D/E.hs") x <- resolveModule env srcDirs (Left $ dir </> "test/data/target/Cpp.hs")
x `shouldBe` Just (ModulePath "test/data/target/Cpp.hs" "Cpp")
return () return ()