tests/testthat/test-space.R

In RVerbalExpressions: Create Regular Expressions Easily

context("test-rx_space")

test_that("space special character works", {

  # expect minimum output
  expect_equal(rx_space() %>% as.character(), " ")

  # expect match
  expect_true(grepl(rx_space(), " "))
  expect_true(grepl(rx_space(), "cat dog"))
  expect_true(grepl(rx_space(inverse = TRUE), "\t"))
  expect_true(grepl(rx_space(inverse = TRUE), "\n"))
  expect_true(grepl(rx_space(inverse = TRUE), "\r"))

  # dont expect match
  expect_false(grepl(rx_space(), ""))
  expect_false(grepl(rx_space(), "\t"))
  expect_false(grepl(rx_space(), "\n"))
  expect_false(grepl(rx_space(), "\r"))

  # expect inverse
  expect_false(grepl(rx_space(inverse = TRUE), " "))
  expect_equal(
    regmatches("cat dog", gregexpr(rx_space(inverse = TRUE), "cat dog"))[[1]],
    c("c", "a", "t", "d", "o", "g")
  )

  # expect error message when inverse arg is incorrect
  expect_error(rx_space(inverse = "nope"))

})