elm-matrix-sdk-beta/tests/Test/Values/Envelope.elm

module Test.Values.Envelope exposing (..)

import Expect
import Fuzz exposing (Fuzzer)
import Internal.Config.Default as Default
import Internal.Values.Envelope as Envelope exposing (Envelope)
import Test exposing (..)
import Test.Values.Context as TestContext
import Test.Values.Settings as TestSettings


fuzzer : Fuzzer a -> Fuzzer (Envelope a)
fuzzer fuz =
    Fuzz.map3 Envelope
        fuz
        TestContext.fuzzer
        TestSettings.fuzzer


suite : Test
suite =
    describe "Envelope value"
        [ describe "init"
            [ describe "Default settings"
                [ fuzz Fuzz.string
                    "currentVersion"
                    (\s ->
                        { content = s, serverName = "", user = Nothing }
                            |> Envelope.init
                            |> Envelope.extractSettings .currentVersion
                            |> Expect.equal Default.currentVersion
                    )
                , fuzz Fuzz.string
                    "deviceName"
                    (\s ->
                        { content = s, serverName = "", user = Nothing }
                            |> Envelope.init
                            |> Envelope.extractSettings .deviceName
                            |> Expect.equal Default.deviceName
                    )
                , fuzz Fuzz.string
                    "syncTime"
                    (\s ->
                        { content = s, serverName = "", user = Nothing }
                            |> Envelope.init
                            |> Envelope.extractSettings .syncTime
                            |> Expect.equal Default.syncTime
                    )
                ]
            ]

        -- , describe "JSON"
        --     [ fuzz2 (fuzzer Fuzz.string)
        --         Fuzz.int
        --         "JSON encode -> JSON decode"
        --         (\envelope indent ->
        --             envelope
        --                 |> Envelope.encode Json.string
        --                 |> E.encode indent
        --                 |> D.decodeString (Envelope.decoder Json.string)
        --                 |> Expect.equal (Ok ( envelope, [] ))
        --         )
        --     ]
        ]