@@ -664,9 +664,9 @@ diagnosticTests = testGroup "diagnostics"
664
664
expectDiagnostics [(" Foo.hs" , [(DsError , (1 ,7 ), " Could not find module 'MissingModule'" )])]
665
665
666
666
, testGroup " Cancellation"
667
- [ cancellationTestGroup " edit header" editHeader yesDepends yesSession noParse noTc
668
- , cancellationTestGroup " edit import" editImport noDepends noSession yesParse noTc
669
- , cancellationTestGroup " edit body" editBody yesDepends yesSession yesParse yesTc
667
+ [ cancellationTestGroup " edit header" editHeader yesSession noParse noTc
668
+ , cancellationTestGroup " edit import" editImport yesSession yesParse noTc
669
+ , cancellationTestGroup " edit body" editBody yesSession yesParse yesTc
670
670
]
671
671
]
672
672
where
@@ -680,17 +680,13 @@ diagnosticTests = testGroup "diagnostics"
680
680
noParse = False
681
681
yesParse = True
682
682
683
- noDepends = False
684
- yesDepends = True
685
-
686
- noSession = False
687
683
yesSession = True
688
684
689
685
noTc = False
690
686
yesTc = True
691
687
692
- cancellationTestGroup :: TestName -> (TextDocumentContentChangeEvent , TextDocumentContentChangeEvent ) -> Bool -> Bool -> Bool -> Bool -> TestTree
693
- cancellationTestGroup name edits dependsOutcome sessionDepsOutcome parseOutcome tcOutcome = testGroup name
688
+ cancellationTestGroup :: TestName -> (TextDocumentContentChangeEvent , TextDocumentContentChangeEvent ) -> Bool -> Bool -> Bool -> TestTree
689
+ cancellationTestGroup name edits sessionDepsOutcome parseOutcome tcOutcome = testGroup name
694
690
[ cancellationTemplate edits Nothing
695
691
, cancellationTemplate edits $ Just (" GetFileContents" , True )
696
692
, cancellationTemplate edits $ Just (" GhcSession" , True )
@@ -699,7 +695,6 @@ cancellationTestGroup name edits dependsOutcome sessionDepsOutcome parseOutcome
699
695
, cancellationTemplate edits $ Just (" GetModSummaryWithoutTimestamps" , True )
700
696
-- getLocatedImports never fails
701
697
, cancellationTemplate edits $ Just (" GetLocatedImports" , True )
702
- , cancellationTemplate edits $ Just (" GetDependencies" , dependsOutcome)
703
698
, cancellationTemplate edits $ Just (" GhcSessionDeps" , sessionDepsOutcome)
704
699
, cancellationTemplate edits $ Just (" GetParsedModule" , parseOutcome)
705
700
, cancellationTemplate edits $ Just (" TypeCheck" , tcOutcome)
0 commit comments