onasty: web/tests/UnitTests/Data/Note.elm (450a6a93f5f70a4a975b11d8e232fa4f2ce294fc)

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

Smirnov Oleksandr web: create note page (#144)..., 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.equal (Ok { slug = "the.note-slug" })
            )
        ]

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.equal (Ok { slug = "the.note-slug" })
17	)
18	]