tests/testthat/test-pastex.R

In qdapRegex: Regular Expression Removal, Extraction, and Replacement Tools

context("Checking pastex")

test_that("pastex gets strings and pastes together",{

	expect_equivalent(pastex("X", "Y", "Z"), "X|Y|Z")
    expect_equivalent(pastex("@rm_percent", "@rm_dollar"),
    	"\\(?[0-9.]+\\)?%|\\$\\(?[0-9.,]+\\)?")
    expect_equivalent(pastex("@rm_percent", "@time_12_hours"),
    	 "\\(?[0-9.]+\\)?%|(1[012]|[1-9]):[0-5][0-9](\\s?)(am|pm)")
	expect_equivalent("X" %|% "Z", "X|Z")
    expect_equivalent("X" %+% "Z", "XZ")
})