add .trim test

tidyverse · Aug 15, 2024 · 8371128 · 8371128
1 parent 66a4f46
commit 8371128
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-glue.R b/tests/testthat/test-glue.R
@@ -5,3 +5,9 @@ test_that("verify wrapper is functional", {
   expect_equal(as.character(str_glue_data(df, "a {b}", b = "b")), "a b")
 })
 
+test_that("verify trim is functional", {
+  expect_equal(as.character(str_glue("L1\t \n  \tL2")), "L1\t \nL2")
+
+  expect_equal(as.character(str_glue("L1\t \n  \tL2", .trim = FALSE)), "L1\t \n  \tL2")
+
+})