diff options
Diffstat (limited to 'test/js/websockets_hello.ml')
| -rw-r--r-- | test/js/websockets_hello.ml | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/test/js/websockets_hello.ml b/test/js/websockets_hello.ml index fb88e04..292b365 100644 --- a/test/js/websockets_hello.ml +++ b/test/js/websockets_hello.ml @@ -16,10 +16,10 @@ let rec run t = then next_tick (fun () -> run t) else () -let main (stream, push) = +let main (stream, push) jid password = let* _stream = Lwt_stream.get stream in let+ _auth = Auth.send_auth_stanza (stream, push) - "test@example.com" "password" + jid password Auth.PLAIN in push None; match _auth with @@ -29,8 +29,10 @@ let main (stream, push) = let () = run @@ - let domain = "egregore.fun" in + let jid = (Sys.getenv "EXAMPLE_JID") + and password = (Sys.getenv "EXAMPLE_PASSWORD") + in let domain = (List.nth (String.split_on_char '@' jid) 1) in let* stream, push = Stream.start domain in Lwt.catch - (fun () -> main (stream, push)) + (fun () -> main (stream, push) jid password) (fun exn -> push None; Lwt.fail exn) |