From 7f9fae1fc86b402f8a4877355577fcf39e6d1cda Mon Sep 17 00:00:00 2001
From: Simon Cruanes <simon.cruanes.2007@m4x.org>
Date: Tue, 3 Sep 2024 15:51:15 -0400
Subject: [PATCH] test: echo_mio: add a heavier endpoint

---
 examples/echo_mio.ml | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/examples/echo_mio.ml b/examples/echo_mio.ml
index 643b4173..962fa4e1 100644
--- a/examples/echo_mio.ml
+++ b/examples/echo_mio.ml
@@ -199,6 +199,18 @@ let () =
     Route.(exact "alice" @/ return)
     (fun _req -> Response.make_string (Ok alice_text));
 
+  Server.add_route_handler server
+    Route.(exact "alice10" @/ return)
+    (fun _req ->
+      let writer =
+        IO.Writer.make () ~write:(fun oc ->
+            for _i = 1 to 10 do
+              IO.Output.output_string oc alice_text;
+              IO.Output.flush oc
+            done)
+      in
+      Response.make_writer (Ok writer));
+
   (* main page *)
   Server.add_route_handler server
     Route.(return)