From 536c401f51ba8d58cb16858c42869069e2e52598 Mon Sep 17 00:00:00 2001 From: Clombrong Date: Tue, 1 Jul 2025 21:32:04 +0200 Subject: test(jid): add bare jid expect test --- lib/jid.ml | 3 +++ 1 file changed, 3 insertions(+) diff --git a/lib/jid.ml b/lib/jid.ml index d7c2982..f6c691a 100644 --- a/lib/jid.ml +++ b/lib/jid.ml @@ -51,6 +51,9 @@ let of_string (s : string) : t = domainpart = drop dstart jid |> take (dend-dstart) |> string_of_uchars } +let%expect_test {|A "bare JID"|} = + "juliet@example.com" |> 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