Expect GHC-83865 for "type error" test - basic test

dylan-thinnes · dylan-thinnes · commit e4ca141a25d4 · 2024-06-10T16:32:33.000+01:00
diff --git a/ghcide/test/exe/DiagnosticTests.hs b/ghcide/test/exe/DiagnosticTests.hs
@@ -104,7 +104,7 @@ tests = testGroup "diagnostics"
       _ <- createDoc "Testing.hs" "haskell" content
       expectDiagnostics
         [ ( "Testing.hs"
-          , [(DiagnosticSeverity_Error, (2, 14), "Couldn't match type '[Char]' with 'Int'", Nothing)]
+          , [(DiagnosticSeverity_Error, (2, 14), "Couldn't match type '[Char]' with 'Int'", Just "GHC-83865")]
           )
         ]
   , testWithDummyPluginEmpty "typed hole" $ do

Original file line number	Diff line number	Diff line change
`@@ -104,7 +104,7 @@ tests = testGroup "diagnostics"`
`104`	`104`	`_ <- createDoc "Testing.hs" "haskell" content`
`105`	`105`	`expectDiagnostics`
`106`	`106`	`[ ( "Testing.hs"`
`107`		`- , [(DiagnosticSeverity_Error, (2, 14), "Couldn't match type '[Char]' with 'Int'", Nothing)]`
	`107`	`+ , [(DiagnosticSeverity_Error, (2, 14), "Couldn't match type '[Char]' with 'Int'", Just "GHC-83865")]`
`108`	`108`	`)`
`109`	`109`	`]`
`110`	`110`	`, testWithDummyPluginEmpty "typed hole" $ do`