inst/doc/testing.R

In box: Write Reusable, Composable and Modular R Code

## ----eval = FALSE-------------------------------------------------------------
# if (is.null(box::name())) {
#     box::use(./`__tests__`)
# }

## ----eval = FALSE-------------------------------------------------------------
# box::use(testthat[...])
# 
# .on_load = function (ns) {
#     test_dir(box::file())
# }
# 
# box::export()

## ----eval = FALSE-------------------------------------------------------------
# box::use(../seq[...])

## ----eval = FALSE-------------------------------------------------------------
# test_that('valid sequences can be created', {
#     expect_error((s = seq('GATTACA')), NA)
#     expect_true(is_valid(s))
# 
#     expect_error(seq('cattaga'), NA)
# })
# 
# test_that('invalid sequences cannot be created', {
#     expect_error(seq('GATTXA'))
# })