Skip to content

Commit e1f7507

Browse files
committed
Ignore functional code action tests for windows-9.4.2
The test fails with: test\functional\FunctionalCodeAction.hs:116: expected: "Not in scope: \8216Control.when\8217\nNo module named \8216Control\8217 is imported." but got: "Variable not in scope: when :: Bool -> IO () -> IO ()" Seems like diagnostics for missing variables differ
1 parent 0ff4411 commit e1f7507

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

test/functional/FunctionalCodeAction.hs

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ tests :: TestTree
2727
tests = testGroup "code actions" [
2828
#if hls_refactor
2929
importTests
30-
, importQualifiedTests
30+
, ignoreInEnv [HostOS Windows, GhcVer GHC94] "Diagnostic failure for Windows-ghc9.4.2" importQualifiedTests
3131
, packageTests
3232
, redundantImportTests
3333
, renameTests
@@ -81,7 +81,7 @@ renameTests = testGroup "rename suggestions" [
8181

8282
importTests :: TestTree
8383
importTests = testGroup "import suggestions" [
84-
testCase "works with 3.8 code action kinds" $ runSession hlsCommand fullCaps "test/testdata" $ do
84+
testCase "import works with 3.8 code action kinds" $ runSession hlsCommand fullCaps "test/testdata" $ do
8585
doc <- openDoc "CodeActionImport.hs" "haskell"
8686
-- No Formatting:
8787
let config = def { formattingProvider = "none" }
@@ -106,7 +106,7 @@ importTests = testGroup "import suggestions" [
106106

107107
importQualifiedTests :: TestTree
108108
importQualifiedTests = testGroup "import qualified suggestions" [
109-
testCase "works with 3.8 code action kinds" $ runSession hlsCommand fullCaps "test/testdata" $ do
109+
testCase "qualified import works with 3.8 code action kinds" $ runSession hlsCommand fullCaps "test/testdata" $ do
110110
doc <- openDoc "CodeActionImportQualified.hs" "haskell"
111111
-- No Formatting:
112112
let config = def { formattingProvider = "none" }

0 commit comments

Comments
 (0)