fix(tests): use environment variables for testing account

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)