From 8371128471ef8878840c4c7d77b0632d9739d334 Mon Sep 17 00:00:00 2001
From: Edgar-Zamora <edgarzamora2012@hotmail.com>
Date: Thu, 15 Aug 2024 10:52:44 -0700
Subject: [PATCH] add .trim test

---
 tests/testthat/test-glue.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/testthat/test-glue.R b/tests/testthat/test-glue.R
index 636da63a..ddc79a26 100644
--- 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")
+
+})