feat(native_hello): use tcp_stream

1 files changed, 9 insertions, 4 deletions

diff --git a/test/native/native_hello.ml b/test/native/native_hello.ml
index 308857f..f125763 100644
--- a/test/native/native_hello.ml
+++ b/test/native/native_hello.ml
@@ -1,7 +1,12 @@
+open! Lwt.Syntax
 open! Portal_tcp
 
 let () =
-  let jid = Sys.getenv "FLESH_JID"
-  and _password = Sys.getenv "FLESH_PASSWORD"
-  in let domain = (List.nth (String.split_on_char '@' jid) 1)
-     in connect domain
+  Lwt_main.run @@
+    let jid = Sys.getenv "FLESH_JID"
+    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