tests/testthat/test-escape_special.R

context("escape_special")

test_that(
  "escape_special escapes all special values",
  {
    expected <- as.regex("\\\\ \\^ \\$ \\. \\| \\? \\* \\+ \\( \\) \\{ } \\[ ]")
    actual <- escape_special("\\ ^ $ . | ? * + ( ) { } [ ]")
    expect_equal(actual, expected)
  }
)
richierocks/rebus.base documentation built on May 27, 2019, 8:47 a.m.