diff --git a/tests/testthat/test-glue.R b/tests/testthat/test-glue.R index 7b85e0e..cab000a 100644 --- a/tests/testthat/test-glue.R +++ b/tests/testthat/test-glue.R @@ -519,6 +519,10 @@ test_that("`+` method does not interpolate twice", { expect_identical(glue("{x}", x = "{wut}") + "y", as_glue("{wut}y")) }) +test_that("`+` method returns length-0 for a length-0 input", { + expect_identical(as_glue("hello") + "world"[0], character()) +}) + test_that("+ method requires character vectors", { expect_snapshot(error = TRUE, { as_glue("a") + 1