aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorClombrong <clombrong@egregore.fun>2025-05-09 14:42:41 +0200
committerClombrong <cromblong@egregore.fun>2025-05-09 14:42:41 +0200
commit24d3b0f0433e397069cf0c80338edeccffd61456 (patch)
treeb59129f44c9ceafccfbbe57d210d7f9b74d46d4c
parent5ade97f7b87c982b1acdcd5cb66a04cc171d5bed (diff)
feat(testing): add nicer view to debug
-rw-r--r--portal/test/js/websockets_hello.ml8
1 files changed, 4 insertions, 4 deletions
diff --git a/portal/test/js/websockets_hello.ml b/portal/test/js/websockets_hello.ml
index 73024e5..795135e 100644
--- a/portal/test/js/websockets_hello.ml
+++ b/portal/test/js/websockets_hello.ml
@@ -21,8 +21,8 @@ let () =
let* stream, push =
Portal_ws.connect domain in
push (Some (Portal_ws.stanza_open domain));
- push (Some "<iq>malformed");
- push (Some "</iq>");
push (Some Portal_ws.stanza_close);
- let+ _ = Lwt_stream.iter (fun f -> print_endline f) stream
- in push None
+ Lwt_stream.iter
+ (fun stanza ->
+ print_endline (">>> " ^ stanza))
+ stream