tests/testthat/test-tag-doctest.R

In doctest: Generate Tests from Examples Using 'roxygen' and 'testthat'

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)
  )
})