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

Fix resolveModule test again

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-06 05:18:57 +02:00
parent 2c9b79449a
commit 9dc7a9375e
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
test/TargetSpec.hs
View File

@ -41,7 +41,6 @@ spec = 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
let srcDirs = [dir </> "test/data/target/src"] let srcDirs = [dir </> "test/data/target/src"]
withLightHscEnv [] $ \env -> runNullLog $ do x <- withLightHscEnv [] $ \env -> runNullLog $ do
x <- resolveModule env srcDirs (Left $ dir </> "test/data/target/Cpp.hs") resolveModule env srcDirs (Left $ dir </> "test/data/target/Cpp.hs")
x `shouldBe` Just (ModulePath "test/data/target/Cpp.hs" "Cpp") liftIO $ x `shouldBe` Just (ModulePath "Cpp" $ dir </> "test/data/target/Cpp.hs")
return ()