From 84b8ee5b4393fe115c677f382988df2071c1f6d4 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fran=C3=A7ois=20Thir=C3=A9?=
 <francois.thire@nomadic-labs.com>
Date: Sat, 17 Aug 2024 15:12:49 +0200
Subject: [PATCH] Tezt/Cloud: Put all the configuration on the website

---
 tezt/lib_cloud/web.ml | 24 +++++++++++++++++++++---
 1 file changed, 21 insertions(+), 3 deletions(-)

diff --git a/tezt/lib_cloud/web.ml b/tezt/lib_cloud/web.ml
index b986b00eb8c4..56668d3dc359 100644
--- a/tezt/lib_cloud/web.ml
+++ b/tezt/lib_cloud/web.ml
@@ -20,19 +20,37 @@ let configuration ~agents =
   let str =
     agents
     |> List.map (fun agent ->
-           let configuration = Agent.configuration agent in
+           let Configuration.
+                 {
+                   machine_type;
+                   docker_image;
+                   max_run_duration;
+                   binaries_path;
+                   os;
+                 } =
+             Agent.configuration agent
+           in
            Format.asprintf
              {|
 ## %s
 
 - **Machine type**: %s
 - **Docker_image**: %a
+- **Max_run_duration**: %s
+- **Binaries_path**: %s
+- **OS**: %s
 
            |}
              (Agent.name agent)
-             configuration.machine_type
+             machine_type
              pp_docker_image
-             configuration.docker_image)
+             docker_image
+             (Option.fold
+                ~none:"no limit"
+                ~some:(fun time -> string_of_int time ^ "s")
+                max_run_duration)
+             binaries_path
+             os)
     |> String.concat "\n"
   in
   Format.asprintf "# Configurations@.%s\n" str
-- 
GitLab