feat(native_hello): open and close our first stream!

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;