From 3b99539fad3f6f12f0ff55751701140c063395e4 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Mon, 30 Jun 2025 20:04:31 +0200 Subject: test(hello): add testing for the Jid --- test/hello.ml | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) (limited to 'test') 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 -- cgit v1.2.3