tests/testthat/test-listSims.R

context("listSims")

test_that("listSims printing works", {
    expect_output(listSims(), "Splatter currently contains")
})

test_that("listSims return works", {
    ll <- listSims(print = FALSE)
    checkmate::expect_class(ll, "data.frame")
})

Try the splatter package in your browser

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

splatter documentation built on Dec. 3, 2020, 2:01 a.m.