Skip to content

Commit 3e64d0d

Browse files
committed
update test
1 parent 89e6d19 commit 3e64d0d

File tree

1 file changed

+5
-10
lines changed

1 file changed

+5
-10
lines changed

ghcide/test/exe/Main.hs

Lines changed: 5 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -664,9 +664,9 @@ diagnosticTests = testGroup "diagnostics"
664664
expectDiagnostics [("Foo.hs", [(DsError, (1,7), "Could not find module 'MissingModule'")])]
665665

666666
, 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
670670
]
671671
]
672672
where
@@ -680,17 +680,13 @@ diagnosticTests = testGroup "diagnostics"
680680
noParse = False
681681
yesParse = True
682682

683-
noDepends = False
684-
yesDepends = True
685-
686-
noSession = False
687683
yesSession = True
688684

689685
noTc = False
690686
yesTc = True
691687

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
694690
[ cancellationTemplate edits Nothing
695691
, cancellationTemplate edits $ Just ("GetFileContents", True)
696692
, cancellationTemplate edits $ Just ("GhcSession", True)
@@ -699,7 +695,6 @@ cancellationTestGroup name edits dependsOutcome sessionDepsOutcome parseOutcome
699695
, cancellationTemplate edits $ Just ("GetModSummaryWithoutTimestamps", True)
700696
-- getLocatedImports never fails
701697
, cancellationTemplate edits $ Just ("GetLocatedImports", True)
702-
, cancellationTemplate edits $ Just ("GetDependencies", dependsOutcome)
703698
, cancellationTemplate edits $ Just ("GhcSessionDeps", sessionDepsOutcome)
704699
, cancellationTemplate edits $ Just ("GetParsedModule", parseOutcome)
705700
, cancellationTemplate edits $ Just ("TypeCheck", tcOutcome)

0 commit comments

Comments
 (0)