Skip to content

Commit b4208cd

Browse files
committed
Testsuite fixes
1 parent 9b53c18 commit b4208cd

File tree

3 files changed

+3
-3
lines changed

3 files changed

+3
-3
lines changed

ghcide/test/exe/HighlightTests.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ tests = testGroup "highlight"
4444
, DocumentHighlight (R 6 10 6 13) (Just DocumentHighlightKind_Read)
4545
, DocumentHighlight (R 7 12 7 15) (Just DocumentHighlightKind_Read)
4646
]
47-
, knownBrokenForGhcVersions [GHC90, GHC92, GHC94, GHC96] "Ghc9 highlights the constructor and not just this field" $
47+
, knownBrokenForGhcVersions [GHC90, GHC92, GHC94, GHC96, GHC98] "Ghc9 highlights the constructor and not just this field" $
4848
testSessionWait "record" $ do
4949
doc <- createDoc "A.hs" "haskell" recsource
5050
_ <- waitForDiagnostics

ghcide/test/exe/PluginSimpleTests.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -36,7 +36,7 @@ tests =
3636

3737
-- Error: cabal: Failed to build ghc-typelits-natnormalise-0.7.7 (which is
3838
-- required by plugin-1.0.0). See the build log above for details.
39-
ignoreFor (BrokenForGHC [GHC96]) "fragile, frequently times out" $
39+
ignoreFor (BrokenForGHC [GHC96, GHC98]) "fragile, frequently times out" $
4040
ignoreFor (BrokenSpecific Windows [GHC94]) "ghc-typelist-natnormalise fails to build on GHC 9.4.2 for windows only" $
4141
testSessionWithExtraFiles "plugin-knownnat" "simple plugin" $ \dir -> do
4242
_ <- openDoc (dir </> "KnownNat.hs") "haskell"

ghcide/test/exe/TestUtils.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -167,7 +167,7 @@ ignoreInWindowsBecause :: String -> TestTree -> TestTree
167167
ignoreInWindowsBecause = ignoreFor (BrokenForOS Windows)
168168

169169
ignoreForGHC92Plus :: String -> TestTree -> TestTree
170-
ignoreForGHC92Plus = ignoreFor (BrokenForGHC [GHC92, GHC94, GHC96])
170+
ignoreForGHC92Plus = ignoreFor (BrokenForGHC [GHC92, GHC94, GHC96, GHC98])
171171

172172
knownBrokenForGhcVersions :: [GhcVersion] -> String -> TestTree -> TestTree
173173
knownBrokenForGhcVersions ghcVers = knownBrokenFor (BrokenForGHC ghcVers)

0 commit comments

Comments
 (0)