:beer: lower the number of tests runs

src/app/domain/brigade/register_new_brigade.gleam

···
     |> result.replace_error(NotFound),
   )
 
-  use assigned_members <- result.map(try_assign_members(
+  use assigned_members <- result.map(assign_members(
     ctx:,
     to: row.id,
     assign: body.members_id,
···
       uuid.to_string(member) |> json.string
     })
 
+  let created_at_json =
+    timestamp.to_unix_seconds(row.created_at)
+    |> json.float
+
+  let id_json =
+    uuid.to_string(row.id)
+    |> json.string
+
   json.to_string(
     json.object([
-      #("id", json.string(uuid.to_string(row.id))),
-      #("created_at", json.float(timestamp.to_unix_seconds(row.created_at))),
+      #("id", id_json),
+      #("created_at", created_at_json),
       #("members", members_json),
     ]),
   )
 }
 
-fn try_assign_members(
+fn assign_members(
   ctx ctx: Context,
   assign members: List(uuid.Uuid),
   to brigade_id: uuid.Uuid,
···
     row.inserted_user_id
   }
 
-  //   BROADCAST
-  let registry = group_registry.get_registry(ctx.registry_name)
-  list.each(assigned_members, fn(user_id) {
-    let body =
-      msg.Domain(msg.UserAssignedToBrigade(user_id: user_id, brigade_id:))
-    user.broadcast(registry, user_id, body)
-  })
+  {
+    //   BROADCAST ASSIGNMENT
+    let registry = group_registry.get_registry(ctx.registry_name)
+    use user_id <- list.each(assigned_members)
+
+    msg.Domain(msg.UserAssignedToBrigade(user_id: user_id, brigade_id:))
+    |> user.broadcast(registry, user_id, _)
+  }
 
   assigned_members
 }

test/app_test.gleam

···
 import wisp
 import wisp/simulate
 
-pub const n_tests = 5
+pub const n_tests = 1
 
 pub fn main() -> Nil {
   gleeunit.main()
···
 
 /// Global context data used in unit tests
 pub fn global_data() -> Context {
-  global_value.create_with_unique_name("global_context", fn() {
-    let db_process_name = process.new_name("db_conn")
-    let registry_name = process.new_name("registry")
-    let env = context.Dev
+  use <- global_value.create_with_unique_name("global_context")
+
+  let db_process_name = process.new_name("db_conn")
+  let registry_name = process.new_name("registry")
+  let env = context.Dev
 
-    let assert Ok(config) = app.read_connection_url(db_process_name, env)
-    let assert Ok(secret_key_base) = envoy.get("COOKIE_TOKEN")
+  let assert Ok(config) = app.read_connection_url(db_process_name, env)
+  let assert Ok(secret_key_base) = envoy.get("COOKIE_TOKEN")
 
-    let db = pog.named_connection(db_process_name)
-    let assert Ok(_) = pog.start(config)
+  let db = pog.named_connection(db_process_name)
+  let assert Ok(_) = pog.start(config)
 
-    Context(
-      static_directory: app.static_directory(),
-      db:,
-      registry_name:,
-      secret_key_base:,
-      env:,
-    )
-  })
+  let static_directory = app.static_directory()
+  Context(static_directory:, db:, registry_name:, secret_key_base:, env:)
 }
 
 ///   Create a request with admin privileges