@@ -131,29 +131,6 @@ pluginTests =
131131 expectNoMoreDiagnostics 1 hsDoc " typechecking"
132132 cabalDoc <- openDoc " simple-cabal.cabal" " cabal"
133133 expectNoMoreDiagnostics 1 cabalDoc " parsing"
134- , runCabalTestCaseSession " Diagnostics in .hs files from invalid .cabal file" " simple-cabal" $ do
135- hsDoc <- openDoc " A.hs" " haskell"
136- expectNoMoreDiagnostics 1 hsDoc " typechecking"
137- cabalDoc <- openDoc " simple-cabal.cabal" " cabal"
138- expectNoMoreDiagnostics 1 cabalDoc " parsing"
139- let theRange = Range (Position 3 20 ) (Position 3 23 )
140- -- Invalid license
141- changeDoc
142- cabalDoc
143- [ TextDocumentContentChangeEvent $
144- InL TextDocumentContentChangePartial
145- { _range = theRange
146- , _rangeLength = Nothing
147- , _text = " MIT3"
148- }
149- ]
150- cabalDiags <- waitForDiagnosticsFrom cabalDoc
151- unknownLicenseDiag <- liftIO $ inspectDiagnostic cabalDiags [" Unknown SPDX license identifier: 'MIT3'"
152- expectNoMoreDiagnostics 1 hsDoc " typechecking"
153- liftIO $ do
154- length cabalDiags @?= 1
155- unknownLicenseDiag ^. L. range @?= Range (Position 3 24 ) (Position 4 0 )
156- unknownLicenseDiag ^. L. severity @?= Just DiagnosticSeverity_Error
157134 ]
158135 ]
159136-- ----------------------------------------------------------------------------
0 commit comments