tests/testthat/test-explain.R

context("Checking explain")

test_that("explain produces a character vector",{

    m <- explain("(?<=foo)\\s+\\(\\d{4}\\)")
    expect_true(is.character(m))
    #expect_true(length(as.character(m)) > 8)
    
})
trinker/qdapRegex documentation built on Oct. 19, 2023, 11:31 p.m.