mirror of
https://github.com/jfmengels/elm-review.git
synced 2024-09-20 04:27:25 +03:00
Split expectErrorsForModules into 2 functions
This commit is contained in:
parent
9717bf7774
commit
2aafccea23
@ -707,23 +707,28 @@ expectErrorsForModules expectedErrorsList reviewResult =
|
||||
Expect.fail errorMessage
|
||||
|
||||
SuccessfulRun _ {- TODO -} runResults ->
|
||||
let
|
||||
maybeUnknownModule : Maybe String
|
||||
maybeUnknownModule =
|
||||
Set.diff
|
||||
(expectedErrorsList |> List.map Tuple.first |> Set.fromList)
|
||||
(Set.fromList (List.map .moduleName runResults))
|
||||
|> Set.toList
|
||||
|> List.head
|
||||
in
|
||||
case maybeUnknownModule of
|
||||
Just unknownModule ->
|
||||
FailureMessage.unknownModulesInExpectedErrors unknownModule
|
||||
|> Expect.fail
|
||||
expectErrorsForModulesHelp expectedErrorsList runResults
|
||||
|
||||
Nothing ->
|
||||
expectErrorsForModuleFiles expectedErrorsList runResults
|
||||
|> (\expectations -> Expect.all expectations ())
|
||||
|
||||
expectErrorsForModulesHelp : List ( String, List ExpectedError ) -> List SuccessfulRunResult -> Expectation
|
||||
expectErrorsForModulesHelp expectedErrorsList runResults =
|
||||
let
|
||||
maybeUnknownModule : Maybe String
|
||||
maybeUnknownModule =
|
||||
Set.diff
|
||||
(expectedErrorsList |> List.map Tuple.first |> Set.fromList)
|
||||
(Set.fromList (List.map .moduleName runResults))
|
||||
|> Set.toList
|
||||
|> List.head
|
||||
in
|
||||
case maybeUnknownModule of
|
||||
Just unknownModule ->
|
||||
FailureMessage.unknownModulesInExpectedErrors unknownModule
|
||||
|> Expect.fail
|
||||
|
||||
Nothing ->
|
||||
expectErrorsForModuleFiles expectedErrorsList runResults
|
||||
|> (\expectations -> Expect.all expectations ())
|
||||
|
||||
|
||||
expectErrorsForModuleFiles : List ( String, List ExpectedError ) -> List SuccessfulRunResult -> List (() -> Expectation)
|
||||
|
Loading…
Reference in New Issue
Block a user