test(jid): add full jid expect test

1 files changed, 3 insertions, 0 deletions

diff --git a/lib/jid.ml b/lib/jid.ml
index 4cbfb43..b10deb1 100644
--- a/lib/jid.ml
+++ b/lib/jid.ml
@@ -57,6 +57,9 @@ let%expect_test {|A "bare JID"|} =
     { localpart = (Some "juliet"); domainpart = "example.com";
       resourcepart = None } |}]
 
+let%expect_test {|A "full JID"|} =
+  "juliet@example.com/foo" |> 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