From fdeff689457eab5c77133930f27d45df826dce58 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Thu, 26 Jun 2025 00:16:00 +0200 Subject: feat(native_hello): open and close our first stream! --- test/native/native_hello.ml | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'test') 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 ""); - 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; -- cgit v1.2.3