kacaii.dev
This repository has no description
lustre
gleam
:white_check_mark: add tests for leader selection in `register_crew` page
author
kacaii.dev
date
(Apr 6, 2026, 11:42 PM -0300)
commit
80a60cd0
80a60cd0f0d43025d44246723a4cee411e71cdfa
parent
1b58017b
1b58017bb1147296446eddf3691ce071ca7e9274
change-id
ulollrvr
ulollrvrxqryymmxkmkpryyoloosrkrn
+53
-5
+1
-1
client/justfile
+1
-1
client/justfile
+50
client/test/client_test/page/register_crew_test.gleam
+50
client/test/client_test/page/register_crew_test.gleam
···
1
+
import client/page/register_crew
2
+
import client_test/dummy
3
+
import gleam/int
4
+
import gleam/list
5
+
import gleam/option
6
+
import lustre/effect
7
+
8
+
pub fn leader_selection_test() {
9
+
let leader = dummy.user()
10
+
11
+
let suggested = {
12
+
use acc, _ <- int.range(0, 5, [])
13
+
[dummy.user(), ..acc]
14
+
}
15
+
16
+
let sequence = [
17
+
register_crew.ApiSuggestedLeaders(Ok(suggested)),
18
+
register_crew.UserSelectedLeader(leader),
19
+
]
20
+
21
+
let #(model, _) = {
22
+
use acc, msg <- list.fold(sequence, #(register_crew.init, effect.none()))
23
+
register_crew.update(acc.0, msg)
24
+
}
25
+
26
+
assert model.selected_leader == option.Some(leader)
27
+
assert model.crew_leader_name == leader.full_name
28
+
assert model.suggested_leaders == []
29
+
}
30
+
31
+
pub fn leader_selection_cleanup_test() {
32
+
let suggested = {
33
+
use acc, _ <- int.range(0, 5, [])
34
+
[dummy.user(), ..acc]
35
+
}
36
+
37
+
let sequence = [
38
+
register_crew.ApiSuggestedLeaders(Ok(suggested)),
39
+
register_crew.UserSelectedLeader(dummy.user()),
40
+
register_crew.UserTypedLeaderName(""),
41
+
]
42
+
43
+
let #(model, _) = {
44
+
use acc, msg <- list.fold(sequence, #(register_crew.init, effect.none()))
45
+
register_crew.update(acc.0, msg)
46
+
}
47
+
48
+
assert model.selected_leader == option.None
49
+
assert model.suggested_leaders == []
50
+
}
+2
-4
server/justfile
+2
-4
server/justfile
···
1
-
set quiet := true
2
-
3
1
# database
4
2
5
3
pg_image := "docker.io/postgres:18-alpine"
···
58
56
# Run database container
59
57
[group("podman")]
60
58
[no-cd]
61
-
init-database pod_name:
59
+
@init-database pod_name:
62
60
podman run -d \
63
61
--pod {{ pod_name }} \
64
62
--name db \
···
69
67
70
68
# Run app container
71
69
[group("podman")]
72
-
init-server pod_name: build-server
70
+
@init-server pod_name: build-server
73
71
podman run -d \
74
72
--pod {{ pod_name }} \
75
73
--name server \