From 24d3b0f0433e397069cf0c80338edeccffd61456 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Fri, 9 May 2025 14:42:41 +0200 Subject: feat(testing): add nicer view to debug --- portal/test/js/websockets_hello.ml | 8 ++++---- 1 file 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 "malformed"); - push (Some ""); 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 -- cgit v1.2.3