diff options
| -rw-r--r-- | lib/jid.ml | 5 |
1 files changed, 4 insertions, 1 deletions
@@ -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 |