onasty: web/tests/UnitTests/Data/Note.elm (65bb3edc162afe35c27505134ecf453e420ffbd4)

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

Olexandr Smirnov web: button component; improve code consistency (#168)..., 10 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	]