elm-format

pull/7/head
Bram 2023-12-29 14:58:50 +01:00
parent 5cdb4fad33
commit 20b4ea2f5c
3 changed files with 9 additions and 5 deletions

View File

@ -61,6 +61,7 @@ append sm2 sm1 =
List.foldl insert sm1 (values sm2)
-- {-| Remove any floating empty Mashdicts from ALL keys in the dictionary.
-- -}
-- cleanAll : StateManager -> StateManager

View File

@ -19,6 +19,7 @@ fuzzer =
Fuzz.string
(Fuzz.maybe unsignedDataFuzzer)
{-| Fuzzer for an event with a set state key
-}
fuzzerState : Fuzzer Event
@ -26,10 +27,10 @@ fuzzerState =
Fuzz.map2
(\event default ->
{ event
| stateKey =
event.stateKey
|> Maybe.withDefault default
|> Maybe.Just
| stateKey =
event.stateKey
|> Maybe.withDefault default
|> Maybe.Just
}
)
fuzzer

View File

@ -112,6 +112,7 @@ suite =
|> StateManager.member event
|> Expect.equal True
)
-- , fuzz2 TestEvent.fuzzerState TestEvent.fuzzerState
-- "singleton has no other members"
-- (\e1 e2 ->
@ -124,7 +125,8 @@ suite =
-- |> StateManager.member e2
-- |> Expect.equal False
-- )
, fuzz TestEvent.fuzzerState "singleton has one value"
, fuzz TestEvent.fuzzerState
"singleton has one value"
(\event ->
StateManager.singleton event
|> StateManager.values