tests/testthat/test-group_or.R

context("Checking group_or")

test_that("group_or groups and `or` concatenate elements",{

    expect_equal(group_or("them", "those", "that", "these"), 
        "((them)|(those)|(that)|(these))")
    
    expect_equal(group_or("them", "those", "that", "these", group.all = FALSE),
        "(them)|(those)|(that)|(these)")
})
trinker/qdapRegex documentation built on Oct. 19, 2023, 11:31 p.m.