test(jid): add bare jid expect test

1 files changed, 3 insertions, 0 deletions

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