tests/testthat/test-str_quote.R

context("str_quote")

test_that("simple", {

  result <- str_quote(1:3)
  expected <- c('"1"', '"2"', '"3"')
  expect_equal(result, expected)

})
BAAQMD/strtools documentation built on May 3, 2024, 10:56 a.m.