From b772cf7a9b5abc28859022d3ad30527fe8e19cbb Mon Sep 17 00:00:00 2001 From: Clombrong Date: Tue, 1 Jul 2025 21:44:53 +0200 Subject: test(jid): add full jid expect test --- lib/jid.ml | 3 +++ 1 file changed, 3 insertions(+) (limited to 'lib') diff --git a/lib/jid.ml b/lib/jid.ml index 4cbfb43..b10deb1 100644 --- a/lib/jid.ml +++ b/lib/jid.ml @@ -57,6 +57,9 @@ let%expect_test {|A "bare JID"|} = { localpart = (Some "juliet"); domainpart = "example.com"; resourcepart = None } |}] +let%expect_test {|A "full JID"|} = + "juliet@example.com/foo" |> of_string |> show |> print_string + let to_string ({ localpart; domainpart; resourcepart } : t) = let local = Option.fold ~none:"" ~some:(fun l -> l ^ "@") localpart and resource = Option.fold ~none:"" ~some:(fun r -> "/" ^ r) resourcepart -- cgit v1.2.3