diff options
| author | Clombrong <clombrong@egregore.fun> | 2025-05-09 14:01:01 +0200 |
|---|---|---|
| committer | Clombrong <cromblong@egregore.fun> | 2025-05-09 14:01:01 +0200 |
| commit | 5ade97f7b87c982b1acdcd5cb66a04cc171d5bed (patch) | |
| tree | a2ffbda04f2e1b1c49d493ce521bf20627bf7b84 /portal/test/js/websockets_hello.ml | |
| parent | 5758525fe2cf55b8b713197424d88118543ccfc6 (diff) | |
feat!(portal_ws): to_frames function relatively complete
Diffstat (limited to 'portal/test/js/websockets_hello.ml')
| -rw-r--r-- | portal/test/js/websockets_hello.ml | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/portal/test/js/websockets_hello.ml b/portal/test/js/websockets_hello.ml index 1e8b364..73024e5 100644 --- a/portal/test/js/websockets_hello.ml +++ b/portal/test/js/websockets_hello.ml @@ -17,9 +17,12 @@ let rec run t = let () = run @@ - let domain = "squarebowl.club" in + let domain = "egregore.fun" in let* stream, push = Portal_ws.connect domain in - push (Some {|<malformed/>|}); + 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 |