From 9469058d58e2025b85ac0a007ffcdb59d0f004d4 Mon Sep 17 00:00:00 2001 From: Kohei Suzuki Date: Sat, 5 Oct 2013 12:08:17 +0900 Subject: [PATCH] Fix builded ghc-mod's path for cabal-sandbox environment --- test/InfoSpec.hs | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) diff --git a/test/InfoSpec.hs b/test/InfoSpec.hs index 9052842..7c63638 100644 --- a/test/InfoSpec.hs +++ b/test/InfoSpec.hs @@ -1,9 +1,12 @@ module InfoSpec where +import Control.Applicative ((<$>)) import Data.List (isPrefixOf) import Language.Haskell.GhcMod import Language.Haskell.GhcMod.Cradle +import System.Environment (getExecutablePath) import System.Exit +import System.FilePath import System.Process import Test.Hspec @@ -50,5 +53,9 @@ spec = do res `shouldSatisfy` ("bar :: [Char]" `isPrefixOf`) 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) + +getDistDir :: IO FilePath +getDistDir = takeDirectory . takeDirectory . takeDirectory <$> getExecutablePath