test(jid): promote full jid

1 files changed, 4 insertions, 1 deletions

diff --git a/lib/jid.ml b/lib/jid.ml
index 3bdb27e..7942b1c 100644
--- a/lib/jid.ml
+++ b/lib/jid.ml
@@ -61,7 +61,10 @@ let%expect_test {|A "bare JID"|} =
       resourcepart = None } |}]
 
 let%expect_test {|A "full JID"|} =
-  "juliet@example.com/foo" |> of_string |> show |> print_string
+  "juliet@example.com/foo" |> of_string |> show |> print_string;
+  [%expect {|
+    { localpart = (Some "juliet"); domainpart = "example.com";
+      resourcepart = (Some "foo") } |}]
 
 let to_string ({ localpart; domainpart; resourcepart } : t) =
   let local = Option.fold ~none:"" ~some:(fun l -> l ^ "@") localpart