tests/testthat/test-check_rewrite.R

In re2r: RE2 Regular Expression

context("check rewrite")

test_that("check rewrite", {
    tt = function(ind) {
        for (exp in 2:length(ind)) {
            if (ind[[exp]][2] == "FALSE") {
                expect_error(re2_replace("a", ind[[1]], ind[[exp]][1]) ,
                             "rewrite string error")
            } else {
                # "TRUE"
                expect_equal(re2_replace("q", ind[[1]], ind[[exp]][1]), "q")
            }
        }
    }


    tt(list(
        "abc",
        c("foo", TRUE),
        c("foo\\", FALSE),
        c("foo\\0bar", TRUE)
    ))

    tt(list(
        "a(b)c",
        c("foo", TRUE),
        c("foo\\0bar", TRUE),
        c("foo\\1bar", TRUE),
        c("foo\\2bar", FALSE),
        c("f\\\\2o\\1o", TRUE)
    ))

    tt(list(
        "a(b)(c)",
        c("foo\\12", TRUE),
        c("f\\2o\\1o", TRUE),
        c("f\\oo\\1", FALSE)
    ))

})