tests/testthat/test-bm_options.R

test_that("`bm_options()` works as expected", {
    skip_if_not_installed("withr")
    withr::local_options(bm_options(default = TRUE))
    expect_equal(bm_options(bittermelon.fg = FALSE),
                 bm_options(default = TRUE))
})

Try the bittermelon package in your browser

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

bittermelon documentation built on June 25, 2024, 5:09 p.m.