tests/testthat/test-trim.R

In rorynolan/strex: Extra String Manipulation Functions

test_that("str_trim_anything works", {
  expect_equal(str_trim_anything("..abcd.", coll("."), "left"), "abcd.")
  expect_equal(
    str_trim_anything("..abcd.", coll("."), "left"),
    str_trim_anything("..abcd.", fixed("."), "left")
  )
  expect_equal(
    str_trim_anything("..abcd.", coll("."), "Ri"),
    str_trim_anything("..abcd.", coll("."), "r")
  )
  expect_equal(
    str_trim_anything(c("abcx", "abcy"), c("x", "y")),
    rep("abc", 2)
  )
  expect_equal(
    str_trim_anything(c("abcx", "abcy"), coll(c("x", "y"))),
    rep("abc", 2)
  )
  expect_equal(
    str_trim_anything(c("abcx", "abcy"), fixed(c("x", "y"))),
    rep("abc", 2)
  )
  expect_equal(str_trim_anything("..abcd.", ".", "left"), "")
  expect_equal(str_trim_anything("-ghi--", "-"), "ghi")
  expect_equal(str_trim_anything("-ghi--", "--"), "-ghi")
  expect_equal(str_trim_anything("-ghi--", "--", "right"), "-ghi")
  expect_equal(str_trim_anything(character(), "a"), character())
  expect_equal(str_trim_anything("-ghi--", "i-+"), "-gh")
  expect_equal(str_trim_anything("-ghi--", "-"), "ghi")
  expect_equal(str_trim_anything(c("-ghi--", "xx"), "-"), c("ghi", "xx"))
  expect_equal(str_trim_anything(c("-ghi--", "xx"), "(-)+"), c("ghi", "xx"))
  expect_equal(
    str_trim_anything(c("tttattt", "ttatt", "tat"), "t"),
    rep("a", 3)
  )
  expect_error(
    str_trim_anything("x", boundary("word")),
    "Function cannot handle a `pattern` of type 'boundary'.",
    fixed = TRUE
  )
  expect_error(
    str_trim_anything(c("a", "b"), c("a", "^a")),
    "don.+start.+reg.+ex.+with.+\\^.+Element 2.+\\^a"
  )
  expect_error(
    str_trim_anything(c("a", "b"), c("a", "a$")),
    "don.+end.+reg.+ex.+with.+\\$.+Element 2.+a\\$"
  )
})