Fix fuzz test

This commit is contained in:
Jeroen Engels 2024-05-01 11:38:09 +02:00
parent 14e37207f3
commit a6b365e173

View File

@ -123,7 +123,7 @@ toStringsTest =
Err _ -> Err _ ->
Expect.pass Expect.pass
, fuzz , fuzz
(Fuzz.list Fuzz.string) (Fuzz.list Fuzz.string |> Fuzz.map List.sort)
"excluded folders should stay as before" "excluded folders should stay as before"
<| <|
\list -> \list ->
@ -136,6 +136,7 @@ toStringsTest =
summary summary
|> FilePattern.toStrings |> FilePattern.toStrings
|> .excludedDirectories |> .excludedDirectories
|> List.sort
|> Expect.equal list |> Expect.equal list
Err _ -> Err _ ->