tests/testthat/test-rm_.R

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

context("Checking rmz_")

test_that("rm_ is making a function, and operating as expected",{
	
	x <- "I like icecream."
	
    rm_digit <- rm_(pattern="[0-9]")
    expect_equivalent(rm_digit("  I 12 li34ke ice56cream78.  "), x)
    
    rm_lead <- rm_(pattern="^\\s+", trim = FALSE, clean = FALSE)
    expect_equivalent(rm_lead("  I 12 li34ke ice56cream78.    "), "I 12 li34ke ice56cream78.    ")
    
    rm_all_except_letters <- rm_(pattern="[^ a-zA-Z]")
    expect_equivalent(rm_all_except_letters("  I 12 li34ke ice56cream78.    "), "I like icecream")
    
    extract_consec_num <- rm_(pattern="[0-9]+", extract = TRUE)
    expect_equivalent(extract_consec_num("  I 12 li34ke ice56cream78.  "),
    	list(c("12", "34", "56", "78")))

})

test_that("ex_ is making a function, and operating as expected",{
	
	x <- structure(list(c("12", "34", "56", "78")), class = c("extracted", "list"))
	
    ex_digit <- ex_(pattern="[0-9]+")
    expect_equivalent(ex_digit("  I 12 li34ke ice56cream78.  "), x)
    
    ex_lead <- ex_(pattern="^\\s+", trim = FALSE, clean = FALSE)
    expect_equivalent(ex_lead("  I 12 li34ke ice56cream78.    "), 
        structure(list("  "), class = c("extracted", "list")))
    
    ex_all_except_letters <- ex_(pattern="[^ a-zA-Z]+")
    expect_equivalent(ex_all_except_letters("  I 12 li34ke ice56cream78.    "), 
        structure(list(c("12", "34", "56", "78.")), class = c("extracted", "list")))
    
    extract_consec_num <- ex_(pattern="[0-9]+", extract = FALSE)
    expect_equivalent(extract_consec_num("  I 12 li34ke ice56cream78.  "),
    	"I like icecream.")

})