test(jid): promote bare jid

1 files changed, 4 insertions, 1 deletions

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