tests/testthat/test-s3-glue.R

In constructive: Display Idiomatic Code to Construct Most R Objects

test_that("glue", {
  skip_if_not_installed("glue")
  latin1_glue <- structure(
    iconv("café", "UTF-8", "latin1"),
    class = c("glue", "character")
  )
  expect_snapshot({
    construct(glue::as_glue("hello"))
    construct(glue::as_glue(c(a = "hello", b = NA)))
    construct(glue::as_glue(character()))
    construct(glue::as_glue("multi\nline\nstring"))
    construct(glue::as_glue("multi\nline\nstring"), opts_character(multiline = TRUE))
    construct(glue::as_glue(letters), opts_character(trim = 2))
    construct(structure(glue::as_glue("hello"), foo = 1))
    # as_glue() would convert to UTF-8, so we fall back to next
    construct(latin1_glue)
    construct(glue::as_glue(c(a = "hello", b = NA)), opts_glue("next"))
    construct(glue::as_glue(character()), opts_glue("next"))
  })
})