diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/native/native_hello.ml | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/test/native/native_hello.ml b/test/native/native_hello.ml index f125763..ad6c6b4 100644 --- a/test/native/native_hello.ml +++ b/test/native/native_hello.ml @@ -7,6 +7,6 @@ let () = and _password = Sys.getenv "FLESH_PASSWORD" in let domain = (List.nth (String.split_on_char '@' jid) 1) in let* stream, push = connect domain - in push (Some "<a>"); - let+ s = Lwt_stream.get stream in - Option.get s |> print_endline + in Portal_tcp.stanza_open domain |> Option.some |> push; + let+ _s = Markup_lwt.next stream + in Portal_tcp.stanza_close |> Option.some |> push; |