From 865ef78bbe15be38c72d198e16dc259231d6df48 Mon Sep 17 00:00:00 2001 From: jneira Date: Mon, 11 Nov 2019 13:48:00 +0100 Subject: [PATCH 1/2] Add process dep to unit-test --- haskell-ide-engine.cabal | 1 + 1 file changed, 1 insertion(+) diff --git a/haskell-ide-engine.cabal b/haskell-ide-engine.cabal index f55d52f4b..8465147eb 100644 --- a/haskell-ide-engine.cabal +++ b/haskell-ide-engine.cabal @@ -201,6 +201,7 @@ test-suite unit-test , hie-plugin-api , hoogle > 5.0.11 , hspec + , process , quickcheck-instances , text , unordered-containers From 8d1e590de6a85b96b5fbbcafd3ded55bfdef1b16 Mon Sep 17 00:00:00 2001 From: jneira Date: Mon, 11 Nov 2019 13:49:57 +0100 Subject: [PATCH 2/2] Unit test over the liquid haskell supported version --- test/unit/LiquidSpec.hs | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/test/unit/LiquidSpec.hs b/test/unit/LiquidSpec.hs index cc8f0095d..16191fb6a 100644 --- a/test/unit/LiquidSpec.hs +++ b/test/unit/LiquidSpec.hs @@ -8,12 +8,12 @@ import qualified Data.ByteString.Lazy as BS import qualified Data.Text as T import qualified Data.Text.IO as T import Data.Monoid ((<>)) -import Data.Maybe (isJust) import Haskell.Ide.Engine.MonadTypes import Haskell.Ide.Engine.Plugin.Liquid import System.Directory import System.Exit import System.FilePath +import System.Process import Test.Hspec -- import Control.Monad.IO.Class @@ -27,7 +27,13 @@ spec = do -- --------------------------------- - it "finds liquid haskell exe in $PATH" $ findExecutable "liquid" >>= (`shouldSatisfy` isJust) + it "the liquid haskell exe in $PATH has the supported version" $ do + mexe <- findExecutable "liquid" + case mexe of + Nothing -> expectationFailure "liquid haskell exe is NOT in $PATH" + Just exe -> do + version <- readProcess exe ["--numeric-version"] "" + version `shouldSatisfy` isPrefixOf "0.8.6.2" -- ---------------------------------