tests/testthat/test-remove.R

test_that("`str_remove_quoted()` works", {
  string <- "\"abc\"67a\'dk\'f"
  expect_equal(str_remove_quoted(string), "67af")
  expect_equal(str_remove_quoted(character()), character())
})
rorynolan/strex documentation built on Oct. 12, 2024, 12:32 p.m.