tests/testthat/test-bind.R

context("Checking bind")

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

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

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