add test

r-lib · Oct 8, 2024 · 004feb7 · 004feb7
1 parent 2f652ea
commit 004feb7
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-label-compose.R b/tests/testthat/test-label-compose.R
@@ -0,0 +1,10 @@
+test_that("compose_labels can chain together functions", {
+
+  labeller <- compose_label(`-`, label_number(suffix = " foo"), toupper)
+  expect_equal(
+    labeller(c(0.1, 1.0, 10.0)),
+    c("-0.1 FOO", "-1.0 FOO", "-10.0 FOO"),
+    ignore_attr = TRUE
+  )
+
+})