tests/testthat/test-lowercase.R

In VerbalExpressions/RVerbalExpressions: Create Regular Expressions Easily

context("test-rx_lowercase")

test_that("lowercase works", {

  # expect match
  expect_true(grepl(rx_lowercase(), "a"))

  # dont expect match
  expect_false(grepl(rx_lowercase(), "A"))
  expect_false(grepl(rx_lowercase(), "!"))

  # expect pipe functionality
  expect_equal(rx() %>% rx_start_of_line() %>% rx_lowercase() %>% as.character(), "^[a-z]")

  # expect inverse
  expect_true(grepl(rx_lowercase(inverse = TRUE), "ABC"))
  expect_true(grepl(rx_lowercase(inverse = TRUE), "!"))
  expect_false(grepl(rx_lowercase(inverse = TRUE), "abc"))

  # expect error if not TRUE/FALSE for inverse arg
  expect_error(rx_lowercase(inverse = "x"))

})