onasty: web/tests/UnitTests/Data/Me.elm (c24198a)

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

Olexandr Smirnov feat(web): add account settings (#190)..., 9 months ago

module UnitTests.Data.Me exposing (suite)

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


suite : Test
suite =
    describe "Data.Me"
        [ test "decode" <|
            \_ ->
                """
                {
                  "email": "admin@onasty.local",
                  "created_at": "2025-06-06T19:44:17.370068Z",
                  "last_login_at": "2025-07-06T17:15:23.380068Z",
                  "notes_created": 42
                }
                """
                    |> Json.decodeString Data.Me.decode
                    |> Expect.ok
        ]

1	module UnitTests.Data.Me exposing (suite)
2
3	import Data.Me
4	import Expect
5	import Json.Decode as Json
6	import Test exposing (Test, describe, test)
7
8
9	suite : Test
10	suite =
11	describe "Data.Me"
12	[ test "decode" <\|
13	\_ ->
14	"""
15	{
16	"email": "admin@onasty.local",
17	"created_at": "2025-06-06T19:44:17.370068Z",
18	"last_login_at": "2025-07-06T17:15:23.380068Z",
19	"notes_created": 42
20	}
21	"""
22	\|> Json.decodeString Data.Me.decode
23	\|> Expect.ok
24	]