put in broken test of hlint dynflags

Author: lf-

plugins/hls-hlint-plugin/test/Main.hs

@@ -222,6 +222,12 @@ suggestionsTests =
         waitForAllProgressDone
         -- hlint will report a parse error if PatternSynonyms is enabled
         expectNoMoreDiagnostics 3 doc "hlint"
+    , testCase "hlint should not enable ForeignFunctionInterface if it is disabled" $ runHlintSession "labelkeyword" $ do
+        doc <- openDoc "LabelKeyword.hs" "haskell"
+
+        waitForAllProgressDone
+        -- hlint will report a parse error if ForeignFunctionInterface is enabled
+        expectNoMoreDiagnostics 3 doc "hlint"
     , testCase "hlint should not warn about redundant irrefutable pattern with LANGUAGE Strict" $ runHlintSession "" $ do
         doc <- openDoc "StrictData.hs" "haskell"
 

plugins/hls-hlint-plugin/test/testdata/labelkeyword/LabelKeyword.hs

@@ -0,0 +1,13 @@
+{-# LANGUAGE DuplicateRecordFields #-}
+{-# LANGUAGE OverloadedRecordDot #-}
+module Foo (Node(..)) where
+
+data Node = Node
+  {
+    label :: ()
+  }
+
+instance Semigroup Node where
+  n1 <> n2 = Node
+    { label = n1.label <> n2.label
+    }

plugins/hls-hlint-plugin/test/testdata/labelkeyword/hie.yaml

@@ -0,0 +1,5 @@
+cradle:
+  direct:
+    arguments:
+      - "-XNoForeignFunctionInterface"
+      - "LabelKeyword"