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

Fix builded ghc-mod's path for cabal-sandbox environment

Browse Source
This commit is contained in:
Kohei Suzuki 2013-10-05 12:08:17 +09:00
parent d8275263f0
commit 9469058d58
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
test/InfoSpec.hs
View File

@ -1,9 +1,12 @@
module InfoSpec where module InfoSpec where
import Control.Applicative ((<$>))
import Data.List (isPrefixOf) import Data.List (isPrefixOf)
import Language.Haskell.GhcMod import Language.Haskell.GhcMod
import Language.Haskell.GhcMod.Cradle import Language.Haskell.GhcMod.Cradle
import System.Environment (getExecutablePath)
import System.Exit import System.Exit
import System.FilePath
import System.Process import System.Process
import Test.Hspec import Test.Hspec
@ -50,5 +53,9 @@ spec = do
res `shouldSatisfy` ("bar :: [Char]" `isPrefixOf`) res `shouldSatisfy` ("bar :: [Char]" `isPrefixOf`)
it "doesn't fail on unicode output" $ do it "doesn't fail on unicode output" $ do
code <- rawSystem "dist/build/ghc-mod/ghc-mod" ["info", "test/data/Unicode.hs", "Unicode", "unicode"] dir <- getDistDir
code <- rawSystem (dir </> "build/ghc-mod/ghc-mod") ["info", "test/data/Unicode.hs", "Unicode", "unicode"]
code `shouldSatisfy` (== ExitSuccess) code `shouldSatisfy` (== ExitSuccess)
getDistDir :: IO FilePath
getDistDir = takeDirectory . takeDirectory . takeDirectory <$> getExecutablePath