From c5fe1bb94f31418d992b0ddc74442377812f2bfe Mon Sep 17 00:00:00 2001 From: Clombrong Date: Tue, 1 Jul 2025 21:40:13 +0200 Subject: test(jid): promote bare jid --- lib/jid.ml | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/lib/jid.ml b/lib/jid.ml index 2cd7214..4cbfb43 100644 --- a/lib/jid.ml +++ b/lib/jid.ml @@ -52,7 +52,10 @@ let of_string (s : string) : t = } let%expect_test {|A "bare JID"|} = - "juliet@example.com" |> of_string |> show |> print_string + "juliet@example.com" |> of_string |> show |> print_string; + [%expect {| + { localpart = (Some "juliet"); domainpart = "example.com"; + resourcepart = None } |}] let to_string ({ localpart; domainpart; resourcepart } : t) = let local = Option.fold ~none:"" ~some:(fun l -> l ^ "@") localpart -- cgit v1.2.3