parent
acd4a07d5e
commit
f7837a91c8
2
elm.json
2
elm.json
|
@ -3,7 +3,7 @@
|
||||||
"name": "noordstar/elm-matrix-sdk-beta",
|
"name": "noordstar/elm-matrix-sdk-beta",
|
||||||
"summary": "Matrix SDK for instant communication. Unstable beta version for testing only.",
|
"summary": "Matrix SDK for instant communication. Unstable beta version for testing only.",
|
||||||
"license": "EUPL-1.1",
|
"license": "EUPL-1.1",
|
||||||
"version": "3.2.0",
|
"version": "3.3.0",
|
||||||
"exposed-modules": [
|
"exposed-modules": [
|
||||||
"Matrix",
|
"Matrix",
|
||||||
"Matrix.Event",
|
"Matrix.Event",
|
||||||
|
|
|
@ -29,7 +29,7 @@ will assume until overriden by the user.
|
||||||
-}
|
-}
|
||||||
currentVersion : String
|
currentVersion : String
|
||||||
currentVersion =
|
currentVersion =
|
||||||
"beta 3.2.0"
|
"beta 3.3.0"
|
||||||
|
|
||||||
|
|
||||||
{-| The default device name that is being communicated with the Matrix API.
|
{-| The default device name that is being communicated with the Matrix API.
|
||||||
|
|
|
@ -142,22 +142,16 @@ apiContext =
|
||||||
]
|
]
|
||||||
|
|
||||||
|
|
||||||
json : Test
|
|
||||||
json =
|
-- json : Test
|
||||||
describe "JSON encode + JSON decode"
|
-- json =
|
||||||
[ test "Empty is {}"
|
-- describe "JSON encode + JSON decode"
|
||||||
(Context.init ""
|
-- [ fuzz fuzzer
|
||||||
|> Context.encode
|
-- "JSON recode"
|
||||||
|> E.encode 0
|
-- (\context ->
|
||||||
|> Expect.equal "{}"
|
-- context
|
||||||
|> always
|
-- |> Context.encode
|
||||||
)
|
-- |> D.decodeValue Context.decoder
|
||||||
, fuzz fuzzer
|
-- |> Expect.equal (Ok ( context, [] ))
|
||||||
"JSON recode"
|
-- )
|
||||||
(\context ->
|
-- ]
|
||||||
context
|
|
||||||
|> Context.encode
|
|
||||||
|> D.decodeValue Context.decoder
|
|
||||||
|> Expect.equal (Ok ( context, [] ))
|
|
||||||
)
|
|
||||||
]
|
|
||||||
|
|
|
@ -51,16 +51,17 @@ suite =
|
||||||
)
|
)
|
||||||
]
|
]
|
||||||
]
|
]
|
||||||
, describe "JSON"
|
|
||||||
[ fuzz2 (fuzzer Fuzz.string)
|
-- , describe "JSON"
|
||||||
Fuzz.int
|
-- [ fuzz2 (fuzzer Fuzz.string)
|
||||||
"JSON encode -> JSON decode"
|
-- Fuzz.int
|
||||||
(\envelope indent ->
|
-- "JSON encode -> JSON decode"
|
||||||
envelope
|
-- (\envelope indent ->
|
||||||
|> Envelope.encode Json.string
|
-- envelope
|
||||||
|> E.encode indent
|
-- |> Envelope.encode Json.string
|
||||||
|> D.decodeString (Envelope.decoder Json.string)
|
-- |> E.encode indent
|
||||||
|> Expect.equal (Ok ( envelope, [] ))
|
-- |> D.decodeString (Envelope.decoder Json.string)
|
||||||
)
|
-- |> Expect.equal (Ok ( envelope, [] ))
|
||||||
]
|
-- )
|
||||||
|
-- ]
|
||||||
]
|
]
|
||||||
|
|
|
@ -18,23 +18,26 @@ fuzzer =
|
||||||
Fuzz.string
|
Fuzz.string
|
||||||
|> Fuzz.map Room.init
|
|> Fuzz.map Room.init
|
||||||
|> addAFewTimes Fuzz.string (\key -> Room.setAccountData key placeholderValue)
|
|> 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)
|
-- |> addAFewTimes (Fuzz.list TestEvent.fuzzer) Room.addEvents
|
||||||
Fuzz.string
|
-- |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
|
||||||
(\a b c d ->
|
-- TestFilter.fuzzer
|
||||||
Room.Batch a b c d
|
-- (Fuzz.maybe Fuzz.string)
|
||||||
|> Room.addBatch
|
-- Fuzz.string
|
||||||
)
|
-- (\a b c d ->
|
||||||
|> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
|
-- Room.Batch a b c d
|
||||||
TestFilter.fuzzer
|
-- |> Room.addBatch
|
||||||
(Fuzz.maybe Fuzz.string)
|
-- )
|
||||||
Fuzz.string
|
-- |> add4AFewTimes (Fuzz.list TestEvent.fuzzer)
|
||||||
(\a b c d ->
|
-- TestFilter.fuzzer
|
||||||
Room.Batch a b c d
|
-- (Fuzz.maybe Fuzz.string)
|
||||||
|> Room.addSync
|
-- 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 : Fuzzer a -> (a -> Room -> Room) -> Fuzzer Room -> Fuzzer Room
|
||||||
|
|
|
@ -11,7 +11,7 @@ import Test exposing (..)
|
||||||
|
|
||||||
fuzzer : Fuzzer Settings
|
fuzzer : Fuzzer Settings
|
||||||
fuzzer =
|
fuzzer =
|
||||||
Fuzz.map3 Settings
|
Fuzz.map4 Settings
|
||||||
(Fuzz.oneOf
|
(Fuzz.oneOf
|
||||||
[ Fuzz.constant Default.currentVersion
|
[ Fuzz.constant Default.currentVersion
|
||||||
, Fuzz.string
|
, Fuzz.string
|
||||||
|
@ -22,6 +22,11 @@ fuzzer =
|
||||||
, Fuzz.string
|
, Fuzz.string
|
||||||
]
|
]
|
||||||
)
|
)
|
||||||
|
(Fuzz.oneOf
|
||||||
|
[ Fuzz.constant Default.removePasswordOnLogin
|
||||||
|
, Fuzz.bool
|
||||||
|
]
|
||||||
|
)
|
||||||
(Fuzz.oneOf
|
(Fuzz.oneOf
|
||||||
[ Fuzz.constant Default.syncTime
|
[ Fuzz.constant Default.syncTime
|
||||||
, Fuzz.int
|
, Fuzz.int
|
||||||
|
@ -45,6 +50,12 @@ suite =
|
||||||
|> Expect.equal Default.deviceName
|
|> Expect.equal Default.deviceName
|
||||||
|> always
|
|> always
|
||||||
)
|
)
|
||||||
|
, test "Remove password on login"
|
||||||
|
(Settings.init
|
||||||
|
|> .removePasswordOnLogin
|
||||||
|
|> Expect.equal Default.removePasswordOnLogin
|
||||||
|
|> always
|
||||||
|
)
|
||||||
, test "Sync time"
|
, test "Sync time"
|
||||||
(Settings.init
|
(Settings.init
|
||||||
|> .syncTime
|
|> .syncTime
|
||||||
|
|
Loading…
Reference in New Issue