diff options
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 |