onasty: web/tests/UnitTests/Data/Note.elm (4137dee2e4c044b00f9640746a52fc6bc37e6762)

onasty/web/tests/UnitTests/Data/Note.elm (view raw)

Olexandr Smirnov web: pretty time (#157)..., 11 months ago

module UnitTests.Data.Note exposing (suite)

import Data.Note
import Expect
import Json.Decode as D
import Test exposing (Test, describe, test)


suite : Test
suite =
    describe "Data.Note"
        [ test "decodeCreateResponse"
            (\_ ->
                "{\"slug\":\"the.note-slug\"}"
                    |> D.decodeString Data.Note.decodeCreateResponse
                    |> Expect.ok
            )
        , test "decodeMetadata"
            (\_ ->
                """
                    {
                        "created_at": "2023-10-01T12:00:00Z",
                        "has_password": false
                    }
                    """
                    |> D.decodeString Data.Note.decodeMetadata
                    |> Expect.ok
            )
        ]

1	module UnitTests.Data.Note exposing (suite)
2
3	import Data.Note
4	import Expect
5	import Json.Decode as D
6	import Test exposing (Test, describe, test)
7
8
9	suite : Test
10	suite =
11	describe "Data.Note"
12	[ test "decodeCreateResponse"
13	(\_ ->
14	"{\"slug\":\"the.note-slug\"}"
15	\|> D.decodeString Data.Note.decodeCreateResponse
16	\|> Expect.ok
17	)
18	, test "decodeMetadata"
19	(\_ ->
20	"""
21	{
22	"created_at": "2023-10-01T12:00:00Z",
23	"has_password": false
24	}
25	"""
26	\|> D.decodeString Data.Note.decodeMetadata
27	\|> Expect.ok
28	)
29	]