aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorClombrong <cromblong@egregore.fun>2025-07-02 01:06:58 +0200
committerClombrong <cromblong@egregore.fun>2025-07-26 21:55:50 +0200
commit6ac86e89debfd98746457fea98e7d1361865e780 (patch)
tree5caee8684bcf1ed64c1e5222ae5ef304dd023f6d
parent9d2e9c106aafa53e8d877984b6c2de4b64e3df9f (diff)
test(jid): re-promote tests according to new show
-rw-r--r--lib/jid.ml8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/jid.ml b/lib/jid.ml
index f51114d..6bbdd93 100644
--- a/lib/jid.ml
+++ b/lib/jid.ml
@@ -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