Add test case for .stan.toml configuration

haskell · Jan 9, 2024 · a5a706b · a5a706b
1 parent 750fca7
commit a5a706b
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 0 deletions.
diff --git a/plugins/hls-stan-plugin/test/Main.hs b/plugins/hls-stan-plugin/test/Main.hs
@@ -34,6 +34,12 @@ tests =
             assertBool "" $ T.isPrefixOf expectedPrefix (reduceDiag ^. L.message)
             reduceDiag ^. L.source @?= Just "stan"
           return ()
+    , testCase "ignores diagnostics from .stan.toml" $
+        runStanSession "" $ do
+          doc <- openDoc "dir/configTest.hs" "haskell"
+          diags <- waitForDiagnosticsFromSource doc "stan"
+          liftIO $ length diags @?= 0
+          return ()
     ]
 
 testDir :: FilePath

diff --git a/plugins/hls-stan-plugin/test/testdata/.stan.toml b/plugins/hls-stan-plugin/test/testdata/.stan.toml
@@ -0,0 +1,14 @@
+[[check]]
+type = "Exclude"
+id = "STAN-0206"
+scope = "all"
+
+[[check]]
+type = "Exclude"
+id = "STAN-0103"
+file = "dir/configTest.hs"
+
+[[check]]
+type = "Exclude"
+id = "STAN-0212"
+directory = "dir/"
diff --git a/plugins/hls-stan-plugin/test/testdata/dir/configTest.hs b/plugins/hls-stan-plugin/test/testdata/dir/configTest.hs
@@ -0,0 +1,5 @@
+data A = A Int Int
+
+a = length [1..]
+
+b = undefined