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

module Test.Values.Room exposing (..)

import Expect
import Fuzz exposing (Fuzzer)
import Internal.Values.Room as Room exposing (Room)
import Json.Decode as D
import Json.Encode as E
import Test exposing (..)
import Test.Filter.Timeline as TestFilter
import Test.Values.Event as TestEvent


placeholderValue : E.Value
placeholderValue =
    E.string "foo bar baz"


fuzzer : Fuzzer Room
fuzzer =
    Fuzz.string
        |> Fuzz.map Room.init
        |> addAFewTimes Fuzz.string (\key -> Room.setAccountData key placeholderValue)
        |> addAFewTimes (Fuzz.list TestEvent.fuzzer) Room.addEvents
        |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
            TestFilter.fuzzer
            (Fuzz.maybe Fuzz.string)
            Fuzz.string
            (\a b c d ->
                Room.Batch a b c d
                    |> Room.addBatch
            )
        |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
            TestFilter.fuzzer
            (Fuzz.maybe Fuzz.string)
            Fuzz.string
            (\a b c d ->
                Room.Batch a b c d
                    |> Room.addSync
            )


addAFewTimes : Fuzzer a -> (a -> Room -> Room) -> Fuzzer Room -> Fuzzer Room
addAFewTimes fuzz f roomFuzzer =
    Fuzz.map2
        (\items room -> List.foldl f room items)
        (Fuzz.list fuzz)
        roomFuzzer


add2AFewTimes : Fuzzer a -> Fuzzer b -> (a -> b -> Room -> Room) -> Fuzzer Room -> Fuzzer Room
add2AFewTimes fuzz1 fuzz2 f roomFuzzer =
    Fuzz.map2
        (\items room -> List.foldl (\( a, b ) -> f a b) room items)
        (Fuzz.list <| Fuzz.pair fuzz1 fuzz2)
        roomFuzzer


add3AFewTimes : Fuzzer a -> Fuzzer b -> Fuzzer c -> (a -> b -> c -> Room -> Room) -> Fuzzer Room -> Fuzzer Room
add3AFewTimes fuzz1 fuzz2 fuzz3 f roomFuzzer =
    Fuzz.map2
        (\items room -> List.foldl (\( a, b, c ) -> f a b c) room items)
        (Fuzz.list <| Fuzz.triple fuzz1 fuzz2 fuzz3)
        roomFuzzer


add4AFewTimes : Fuzzer a -> Fuzzer b -> Fuzzer c -> Fuzzer d -> (a -> b -> c -> d -> Room -> Room) -> Fuzzer Room -> Fuzzer Room
add4AFewTimes fuzz1 fuzz2 fuzz3 fuzz4 f roomFuzzer =
    Fuzz.map2
        (\items room -> List.foldl (\( ( a, b ), ( c, d ) ) -> f a b c d) room items)
        (Fuzz.list <| Fuzz.pair (Fuzz.pair fuzz1 fuzz2) (Fuzz.pair fuzz3 fuzz4))
        roomFuzzer


suite : Test
suite =
    describe "Room"
        [ fuzz3 fuzzer
            Fuzz.string
            Fuzz.string
            "JSON Account Data can be overridden"
            (\room key text ->
                room
                    |> Room.setAccountData key (E.string text)
                    |> Room.getAccountData key
                    |> Maybe.map (D.decodeValue D.string)
                    |> Maybe.andThen Result.toMaybe
                    |> Expect.equal (Just text)
            )
        , fuzz fuzzer
            "Room -> JSON -> Room is equal"
            (\room ->
                let
                    value : E.Value
                    value =
                        Room.encode room
                in
                value
                    |> D.decodeValue Room.decode
                    |> Result.toMaybe
                    |> Maybe.map Tuple.first
                    |> Maybe.map Room.encode
                    |> Maybe.map (E.encode 0)
                    |> Expect.equal (Just <| E.encode 0 value)
            )
        ]