test/native/native_hello.ml


1
2
3
4
5
6
7
8
9
10
11
12

open! Lwt.Syntax
open! Portal_tcp

let () =
  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 Portal_tcp.stanza_open domain |> Option.some |> push;
             let+ _s = Markup_lwt.next stream
             in Portal_tcp.stanza_close |> Option.some |> push;