tests/testthat/test-string_manip.R

test_that("substr2 edge cases", {

  expect_identical(substr2("1234567890", 1, 1), "")
  expect_identical(substr2("1234567890", 0, 0), "")
  expect_identical(substr2("1234567890", 99, 100), "")

  # end position is off the end
  expect_identical(substr2("1234567890", 9, 100), "90")

  # passing both start and end positions in one argument
  expect_identical(substr2("1234567890", c(1,3)), "12")

  # vectorized start/end
  expect_identical(substr2("1234567890", c(1,3), c(2,4)), c("1", "3"))

  # end recycling
  expect_identical(substr2("1234567890", c(1,2), 3), c("12", "2"))

  # too-small start value is tolerated
  expect_identical(substr2("1234567890", -3, 2), "1")

  # multiple values for `x` are not tolerated
  expect_error(substr2(c("abc", "def"), 1, 3))
})


test_that("gfsub basics", {
  expect_identical(
    gfsub("abcdefghijklmnopqrstuvwxyz", "[aeiouy]", toupper),
    "AbcdEfghIjklmnOpqrstUvwxYz"
  )

  gfsub("&", "&(.*?);", function(match, entity) {
    expect_identical(entity, "amp")
    NULL
  })

  output <- gfsub("hello &amp; goodbye", "&(.*?);", function(match, entity, bad_param) {
    expect_error(bad_param)
    NULL
  })
  expect_identical(output, "hello  goodbye")
})

Try the blastula package in your browser

Any scripts or data that you put into this service are public.

blastula documentation built on May 29, 2024, 4:22 a.m.