24 lines
647 B
Elm
24 lines
647 B
Elm
module Test.Values.Vault exposing (..)
|
|
|
|
import FastDict as Dict
|
|
import Fuzz exposing (Fuzzer)
|
|
import Internal.Tools.Json as Json
|
|
import Internal.Values.Vault exposing (Vault)
|
|
import Test exposing (..)
|
|
import Test.Tools.Hashdict as TestHashdict
|
|
import Test.Values.Room as TestRoom
|
|
import Test.Values.User as TestUser
|
|
|
|
|
|
vault : Fuzzer Vault
|
|
vault =
|
|
Fuzz.map4 Vault
|
|
(Fuzz.string
|
|
|> Fuzz.map (\k -> ( k, Json.encode Json.int 0 ))
|
|
|> Fuzz.list
|
|
|> Fuzz.map Dict.fromList
|
|
)
|
|
(Fuzz.maybe Fuzz.string)
|
|
(TestHashdict.fuzzer .roomId TestRoom.fuzzer)
|
|
(Fuzz.maybe TestUser.fuzzer)
|