diff options
Diffstat (limited to 'test/js/websockets_hello.ml')
| -rw-r--r-- | test/js/websockets_hello.ml | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/test/js/websockets_hello.ml b/test/js/websockets_hello.ml index 6bc863b..f2f65b6 100644 --- a/test/js/websockets_hello.ml +++ b/test/js/websockets_hello.ml @@ -20,7 +20,7 @@ let () = run @@ let domain = "egregore.fun" in let* stream, push = Stream.start domain - in push (Some (Portal.stanza_open domain)); - let+ opens = Lwt_stream.get stream - in print_endline (Option.get opens); - push (Some (Portal.stanza_close)) + in let* _stream = Lwt_stream.get stream + in push (Some "<iq>wrong</iq>"); + let+ _recv = Lwt_stream.get stream in + push None |