From e01e43995b0884e2b81e1a9939c285fdaf2f616c Mon Sep 17 00:00:00 2001
From: Teun van den Brand <tahvdbrand@gmail.com>
Date: Mon, 7 Oct 2024 11:36:29 +0200
Subject: [PATCH] add test

---
 tests/testthat/test-label-date.R | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/tests/testthat/test-label-date.R b/tests/testthat/test-label-date.R
index 62b56cea..29d4e71e 100644
--- 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()