add test

r-lib · Oct 7, 2024 · e01e439 · e01e439
1 parent bef35bf
commit e01e439
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-label-date.R b/tests/testthat/test-label-date.R
@@ -24,6 +24,15 @@ test_that("can set locale", {
   expect_equal(time_format("%B", locale = "fr")(x), "janvier")
 })
 
+test_that("label_date_short can replace leading zeroes", {
+  x <- seq(as.Date("2024-01-01"),  as.Date("2025-01-01"), by = "1 month")
+  labels <- label_date_short(
+    format = c("%Y", "%m", "%d"),
+    sep = "-", leading = "x"
+  )(x)
+  expect_equal(labels, c("x1-2024", paste0("x", 2:9), c(10:12), "x1-2025"))
+})
+
 test_that("date_short doesn't change unexpectedly", {
   expect_snapshot({
     dformat <- label_date_short()