tests/testthat/test-MFAParams.R

context("MFAParams")

test_that("printing works", {
    skip_if_not_installed("mfa")
    params <- newMFAParams()
    expect_output(show(params), "A Params object of class MFAParams")
})

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.