elm-matrix-sdk-beta/tests/Test/Values/Vault.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


vault : Fuzzer Vault
vault =
    Fuzz.map3 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)