diff --git a/test/functional/Tactic.hs b/test/functional/Tactic.hs index b722646336..eb31c58327 100644 --- a/test/functional/Tactic.hs +++ b/test/functional/Tactic.hs @@ -9,6 +9,7 @@ module Tactic where import Control.Applicative.Combinators ( skipManyTill ) +import Control.Monad (unless) import Control.Monad.IO.Class import Data.Foldable import Data.Maybe @@ -18,12 +19,12 @@ import qualified Data.Text.IO as T import Ide.Plugin.Tactic.TestTypes import Language.Haskell.LSP.Test import Language.Haskell.LSP.Types (ApplyWorkspaceEditRequest, Position(..) , Range(..) , CAResult(..) , CodeAction(..)) +import System.Directory (doesFileExist) +import System.FilePath import Test.Hls.Util import Test.Tasty +import Test.Tasty.ExpectedFailure (ignoreTestBecause) import Test.Tasty.HUnit -import System.FilePath -import System.Directory (doesFileExist) -import Control.Monad (unless) ------------------------------------------------------------------------------ @@ -106,7 +107,8 @@ tests = testGroup , goldenTest "GoldenShowCompose.hs" 2 15 Auto "" , goldenTest "GoldenShowMapChar.hs" 2 8 Auto "" , goldenTest "GoldenSuperclass.hs" 7 8 Auto "" - , goldenTest "GoldenApplicativeThen.hs" 2 11 Auto "" + , ignoreTestBecause "It is unreliable in circleci builds" + $ goldenTest "GoldenApplicativeThen.hs" 2 11 Auto "" ]