diff options
Diffstat (limited to 'test')
| -rw-r--r-- | test/native/native_hello.ml | 13 |
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 |