tests/testthat/test_cc.R

context("cc")

test_that("All tests",{
    fileRef <- "testReference/cc_1.rds"

    res <- list(
        cc(a,b,`a b`)
       ,cc(a,b,"a b")
        ## be careful with spaces and special characters
       ,cc( d)
       ,cc(" d")
       ,cc()
    )

    expect_equal_to_reference(res,fileRef,version=2)
})

Try the NMdata package in your browser

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

NMdata documentation built on Nov. 11, 2023, 5:07 p.m.