tests/testthat/test_products.R

## ---- twoal() ----------------------------------------------------------------
test_that("twoal()", {
    x <- twoal()
    expect_identical(is.list(x), TRUE)
})

## ---- twoep() ----------------------------------------------------------------
test_that("twoep()", {
    x <- twoep()
    expect_identical(is.list(x), TRUE)
})
timtrice/Hurricanes documentation built on Oct. 10, 2023, 8:15 p.m.