tests/testthat/test-print.subcom.R

context("Checking print.regex")

test_that("print.regex prints a character vector",{

    m <- "foo" %:)% "bar"
    expect_equivalent(capture.output(regexr:::print.subcom(m)), "[1] \"foo\"")
    
})

Try the regexr package in your browser

Any scripts or data that you put into this service are public.

regexr documentation built on May 29, 2017, 5:57 p.m.