tests/testthat/test-anything_but.R

In RVerbalExpressions: Create Regular Expressions Easily

context("test-rx_anything_but")

test_that("anything_but rule works", {
  # exoect the correct output
  expect_equal(rx_anything_but(value = "abc") %>% as.character(), "([^abc]*)")
  expect_equal(rx_anything_but(value = "abc", mode="lazy") %>% as.character(), "([^abc]*?)")

  # expect an error if nothing is given
  expect_error(rx_anything_but())

  # expect an error if invalid 'mode' is given
  expect_error(rx_anything_but(value = "abc", mode = "whatever"), regexp="Please.*")

  # expect .data works
  expect_equal(rx_anything_but("^", value = "abc") %>% as.character(), "^([^abc]*)")
  expect_equal(rx_anything_but("^", value = "abc", mode = "lazy") %>% as.character(), "^([^abc]*?)")
})