test(hello): add testing for the Jid

1 files changed, 9 insertions, 1 deletions

diff --git a/test/hello.ml b/test/hello.ml
index 6636d4d..a43b90a 100644
--- a/test/hello.ml
+++ b/test/hello.ml
@@ -12,7 +12,15 @@ let main =
         };
       other = [];
     }
-  in let domain = (List.nth (String.split_on_char '@' config.sasl.jid) 1) in
+  in
+     begin
+       let jid = Jid.of_string (Sys.getenv "FLESH_JID")
+       in
+       Option.iter print_endline jid.localpart;
+       print_endline jid.domainpart;
+       Option.iter print_endline jid.resourcepart;
+     end;
+  let domain = (List.nth (String.split_on_char '@' config.sasl.jid) 1) in
      try%lwt connect domain config >|= (fun (portal, _) -> portal.push None)
      with exn ->
        begin