Tests for vectorized links

r-lib · Aug 27, 2022 · 063b28f · 063b28f
1 parent 23fbd6c
commit 063b28f
Show file tree

Hide file tree

Showing 2 changed files with 85 additions and 0 deletions.
diff --git a/tests/testthat/_snaps/links.md b/tests/testthat/_snaps/links.md
@@ -26,6 +26,42 @@
     Message
       [3m[34m<]8;;https://cli.r-lib.orghttps://cli.r-lib.org]8;;>[39m[23m
 
+# {.url} vector [plain-none]
+
+    Code
+      urls <- paste0("https://cli.r-lib.org/", 1:3)
+      cli_text("{.url {urls}}")
+    Message
+      <https://cli.r-lib.org/1>, <https://cli.r-lib.org/2>, and
+      <https://cli.r-lib.org/3>
+
+# {.url} vector [fancy-none]
+
+    Code
+      urls <- paste0("https://cli.r-lib.org/", 1:3)
+      cli_text("{.url {urls}}")
+    Message
+      [3m[34m<https://cli.r-lib.org/1>[39m[23m, [3m[34m<https://cli.r-lib.org/2>[39m[23m, and
+      [3m[34m<https://cli.r-lib.org/3>[39m[23m
+
+# {.url} vector [plain-all]
+
+    Code
+      urls <- paste0("https://cli.r-lib.org/", 1:3)
+      cli_text("{.url {urls}}")
+    Message
+      <]8;;https://cli.r-lib.org/1https://cli.r-lib.org/1]8;;>, <]8;;https://cli.r-lib.org/2https://cli.r-lib.org/2]8;;>, and
+      <]8;;https://cli.r-lib.org/3https://cli.r-lib.org/3]8;;>
+
+# {.url} vector [fancy-all]
+
+    Code
+      urls <- paste0("https://cli.r-lib.org/", 1:3)
+      cli_text("{.url {urls}}")
+    Message
+      [3m[34m<]8;;https://cli.r-lib.org/1https://cli.r-lib.org/1]8;;>[39m[23m, [3m[34m<]8;;https://cli.r-lib.org/2https://cli.r-lib.org/2]8;;>[39m[23m, and
+      [3m[34m<]8;;https://cli.r-lib.org/3https://cli.r-lib.org/3]8;;>[39m[23m
+
 # {.file} and {.path} [plain-none]
 
     Code
@@ -346,6 +382,38 @@
     Message
       ]8;;mailto:[email protected][[email protected][39m]8;;
 
+# {.email} vectors [plain-none]
+
+    Code
+      emails <- paste0("bugs.bunny-", 1:3, "@acme.com")
+      cli_text("{.email {emails}}")
+    Message
+      '[email protected]', '[email protected]', and '[email protected]'
+
+# {.email} vectors [fancy-none]
+
+    Code
+      emails <- paste0("bugs.bunny-", 1:3, "@acme.com")
+      cli_text("{.email {emails}}")
+    Message
+      [[email protected][39m, [[email protected][39m, and [[email protected][39m
+
+# {.email} vectors [plain-all]
+
+    Code
+      emails <- paste0("bugs.bunny-", 1:3, "@acme.com")
+      cli_text("{.email {emails}}")
+    Message
+      ']8;;mailto:[email protected][email protected]]8;;', ']8;;mailto:[email protected][email protected]]8;;', and ']8;;mailto:[email protected][email protected]]8;;'
+
+# {.email} vectors [fancy-all]
+
+    Code
+      emails <- paste0("bugs.bunny-", 1:3, "@acme.com")
+      cli_text("{.email {emails}}")
+    Message
+      ]8;;mailto:[email protected][[email protected][39m]8;;, ]8;;mailto:[email protected][[email protected][39m]8;;, and ]8;;mailto:[email protected][[email protected][39m]8;;
+
 # {.href} [plain-none]
 
     Code

diff --git a/tests/testthat/test-links.R b/tests/testthat/test-links.R
@@ -8,6 +8,14 @@ test_that_cli(config = c("plain", "fancy"), links = c("all", "none"),
   })
 })
 
+test_that_cli(config = c("plain", "fancy"), links = c("all", "none"),
+              "{.url} vector", {
+  expect_snapshot({
+    urls <- paste0("https://cli.r-lib.org/", 1:3)
+    cli_text("{.url {urls}}")
+  })
+})
+
 # -- {.file} and {.path} --------------------------------------------------
 
 test_that_cli(config = c("plain", "fancy"), links = c("all", "none"),
@@ -64,6 +72,15 @@ test_that_cli(config = c("plain", "fancy"), links = c("all", "none"),
   })
 })
 
+test_that_cli(config = c("plain", "fancy"), links = c("all", "none"),
+              "{.email} vectors", {
+
+  expect_snapshot({
+    emails <- paste0("bugs.bunny-", 1:3, "@acme.com")
+    cli_text("{.email {emails}}")
+  })
+})
+
 # -- {.href} --------------------------------------------------------------
 
 test_that_cli(config = "plain", links = c("all", "none"),