Skip to content

Commit 0d74359

Browse files
committed
Mark hover test broken in Windows and Mac
1 parent 631bc19 commit 0d74359

File tree

1 file changed

+8
-3
lines changed

1 file changed

+8
-3
lines changed

ghcide/test/exe/Main.hs

Lines changed: 8 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -7,6 +7,7 @@
77
{-# LANGUAGE DuplicateRecordFields #-}
88
{-# LANGUAGE GADTs #-}
99
{-# LANGUAGE ImplicitParams #-}
10+
{-# LANGUAGE MultiWayIf #-}
1011
{-# LANGUAGE PatternSynonyms #-}
1112
{-# LANGUAGE PolyKinds #-}
1213
{-# LANGUAGE TypeOperators #-}
@@ -81,7 +82,7 @@ import System.Exit (ExitCode (ExitSuccess
8182
import System.FilePath
8283
import System.IO.Extra hiding (withTempDir)
8384
import qualified System.IO.Extra
84-
import System.Info.Extra (isWindows)
85+
import System.Info.Extra (isWindows, isMac)
8586
import System.Mem (performGC)
8687
import System.Process.Extra (CreateProcess (cwd),
8788
createPipe, proc,
@@ -4047,9 +4048,13 @@ findDefinitionAndHoverTests = let
40474048
, test no skip cccL17 docLink "Haddock html links"
40484049
, testM yes yes imported importedSig "Imported symbol"
40494050
, testM yes yes reexported reexportedSig "Imported symbol (reexported)"
4050-
, if ghcVersion == GHC90 && isWindows then
4051+
, if | ghcVersion == GHC90 && isWindows ->
40514052
test no broken thLocL57 thLoc "TH Splice Hover"
4052-
else
4053+
| ghcVersion == GHC92 && (isWindows || isMac) ->
4054+
-- Some GHC 9.2 distributions ship without .hi docs
4055+
-- https://gitlab.haskell.org/ghc/ghc/-/issues/20903
4056+
test no broken thLocL57 thLoc "TH Splice Hover"
4057+
| otherwise ->
40534058
test no yes thLocL57 thLoc "TH Splice Hover"
40544059
]
40554060
where yes, broken :: (TestTree -> Maybe TestTree)

0 commit comments

Comments
 (0)