tests/testthat/test-group.R

context("Checking group")

test_that("group adds boundaries on either end",{

    expected <- c("(A)", "(B)", "(C)", "(D)", "(E)", "(F)", "(G)", "(H)", "(I)", 
        "(J)")
    
    expect_equivalent(group(LETTERS[1:10]), expected)

})
trinker/qdapRegex documentation built on Oct. 19, 2023, 11:31 p.m.