tests/testthat/test-whitespace.R

In VerbalExpressions/RVerbalExpressions: Create Regular Expressions Easily

context("test-rx_whitespace")

test_that("whitespace special character works", {

  # expect minimal output
  expect_equal(rx_whitespace() %>% as.character(), "\\s")

  # expect match
  expect_true(grepl(rx_whitespace(), " "))

  # expect match only spaces
  expect_equal(
    regmatches("a b c", gregexpr(rx_whitespace(), "a b c"))[[1]], c(" ", " ")
  )

  # dont expect match
  expect_false(grepl(rx_whitespace(), "abc"))

  # expect inverse behavior
  expect_false(grepl(rx_whitespace(inverse = TRUE), " "))
  expect_false(grepl(rx_whitespace(inverse = TRUE), "\t"))
  expect_false(grepl(rx_whitespace(inverse = TRUE), "\n"))
  expect_false(grepl(rx_whitespace(inverse = TRUE), "\r"))

  # expect error if incorrect value to inverse arg
  expect_error(rx_whitespace(inverse = 1))

})