elm-format
parent
5cdb4fad33
commit
20b4ea2f5c
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
|
@ -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
|
||||
|
|
Loading…
Reference in New Issue