File tree Expand file tree Collapse file tree 1 file changed +5
-1
lines changed Expand file tree Collapse file tree 1 file changed +5
-1
lines changed Original file line number Diff line number Diff line change @@ -84,7 +84,8 @@ tests = testGroup "completions" [
84
84
compls <- getCompletions doc (Position 5 7 )
85
85
liftIO $ assertBool " Expected completions" $ not $ null compls
86
86
87
- , testGroup " recorddotsyntax"
87
+ , expectFailIfBeforeGhc92 " record dot syntax is introduced in GHC 9.2"
88
+ $ testGroup " recorddotsyntax"
88
89
[ testCase " shows field selectors" $ runSession hlsCommand fullCaps " test/testdata/completion" $ do
89
90
doc <- openDoc " RecordDotSyntax.hs" " haskell"
90
91
@@ -364,3 +365,6 @@ shouldNotContainCompl :: [CompletionItem] -> T.Text -> Assertion
364
365
compls `shouldNotContainCompl` lbl =
365
366
all ((/= lbl) . (^. label)) compls
366
367
@? " Should not contain completion: " ++ show lbl
368
+
369
+ expectFailIfBeforeGhc92 :: String -> TestTree -> TestTree
370
+ expectFailIfBeforeGhc92 = knownBrokenForGhcVersions [GHC810 , GHC88 , GHC86 ]
You can’t perform that action at this time.
0 commit comments