fix func-tests

kokobd · kokobd · commit 2ecd76d0bafc · 2022-08-09T19:29:35.000+08:00
diff --git a/test/functional/Diagnostic.hs b/test/functional/Diagnostic.hs
@@ -23,7 +23,7 @@ basicTests = testGroup "Diagnostics work" [
             diags <- waitForDiagnosticsFromSource doc "example2"
             reduceDiag <- liftIO $ inspectDiagnostic diags ["example2 diagnostic, hello world"]
             liftIO $ do
-                length diags @?= 1
+                length diags @?= 2
                 reduceDiag ^. LSP.range @?= Range (Position 0 0) (Position 1 0)
                 reduceDiag ^. LSP.severity @?= Just DsError
     ]

Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,7 @@ basicTests = testGroup "Diagnostics work" [`
`23`	`23`	`diags <- waitForDiagnosticsFromSource doc "example2"`
`24`	`24`	`reduceDiag <- liftIO $ inspectDiagnostic diags ["example2 diagnostic, hello world"]`
`25`	`25`	`liftIO $ do`
`26`		`- length diags @?= 1`
	`26`	`+ length diags @?= 2`
`27`	`27`	`reduceDiag ^. LSP.range @?= Range (Position 0 0) (Position 1 0)`
`28`	`28`	`reduceDiag ^. LSP.severity @?= Just DsError`
`29`	`29`	`]`