Nothing
test_that("@doctest", {
test_ex <- "
#' @doctest is 1 1?
#' @expectRaw equal(1, 1)
#'
#' @doctest is TRUE true?
#' @expect true()
#' TRUE
NULL
" |> dedent()
results <- roc_proc_text(dt_roclet(), test_ex)
expect_snapshot_output(
roclet_output(dt_roclet(), results)
)
test_bad_name <- "
#' @doctest three\" {warning('this would be sad');\"
#' @expect equal(3)
#' 3
NULL
" |> dedent()
expect_error(
roc_proc_text(dt_roclet(), test_bad_name)
)
})
test_that("empty test", {
test_empty <- "
#' @doctest
#' mean(1:3)
NULL
" |> dedent()
results <- roc_proc_text(dt_roclet(), test_empty)
expect_output(
roclet_output(dt_roclet(), results),
NA # no output
)
})
test_that("dontrun", {
test_dontrun <- "
#' @doctest
#' \\dontrun{
#' @expect error(., 'foo')
#' stop('foo')
#' }
NULL
" |> dedent()
results <- roc_proc_text(dt_roclet(), test_dontrun)
expect_snapshot_output(
roclet_output(dt_roclet(), results)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.