diff options
author | Clombrong <cromblong@egregore.fun> | 2025-07-02 01:06:58 +0200 |
---|---|---|
committer | Clombrong <cromblong@egregore.fun> | 2025-07-26 21:55:50 +0200 |
commit | 6ac86e89debfd98746457fea98e7d1361865e780 (patch) | |
tree | 5caee8684bcf1ed64c1e5222ae5ef304dd023f6d | |
parent | 9d2e9c106aafa53e8d877984b6c2de4b64e3df9f (diff) |
test(jid): re-promote tests according to new show
-rw-r--r-- | lib/jid.ml | 8 |
1 files changed, 5 insertions, 3 deletions
@@ -63,14 +63,16 @@ let show ({ localpart; domainpart; resourcepart } : t) = let%expect_test {|A "bare JID"|} = "juliet@example.com" |> of_string |> show |> print_string; [%expect {| - { localpart = (Some "juliet"); domainpart = "example.com"; + { localpart = Some "juliet"; + domainpart = "example.com"; resourcepart = None } |}] let%expect_test {|A "full JID"|} = "juliet@example.com/foo" |> of_string |> show |> print_string; [%expect {| - { localpart = (Some "juliet"); domainpart = "example.com"; - resourcepart = (Some "foo") } |}] + { 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 |