inst/templates/tinytest.R

if (interactive()) {
    pkgload::load_all()
    library("tinytest")
}

expectation <- FIXME
result <- FUNCTION(FIXME)
expect_identical(result, expectation)

Try the fritools package in your browser

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

fritools documentation built on Nov. 19, 2023, 1:06 a.m.