Use doctest: add doctests for message functions

DESCRIPTION

@@ -16,7 +16,7 @@ License: MIT + file LICENSE
 Encoding: UTF-8
 Roxygen: list(markdown = TRUE, roclets = c("collate", "rd", "namespace", 
               "doctest::dt_roclet")) 
-RoxygenNote: 7.2.2
+RoxygenNote: 7.2.3
 Imports: 
     rappdirs,
     filelock

R/messages.R

@@ -18,6 +18,7 @@
 #' id <- sample(10000L, 1)
 #'
 #' for (n in 1:3) {
+#' @expect warning(regexp = if (n == 1L) "once" else NA)
 #'   onetime_warning("will be shown once", id = id)
 #' }
 #'
@@ -109,7 +110,7 @@ onetime_startup_message <- function (...,
 #' @doctest
 #' oo <- options(onetime.dir = tempdir(check = TRUE))
 #' id <- sample(10000L, 1L)
-#'
+#' @expect message("A message")
 #' onetime_message_confirm("A message to show one or more times", id = id)
 #'
 #' onetime_reset(id = id)

R/meta.R

@@ -39,7 +39,7 @@
 #'  Otherwise `FALSE`.
 #' @export
 #'
-#' @doctest
+#' @examples
 #'
 #' check_ok_to_store()
 #'

R/rlang.R

@@ -13,6 +13,7 @@
 #' id <- sample(10000L, 1)
 #'
 #' for (n in 1:3) {
+#' @expect warning(regexp = if (n == 1L) "rlang" else NA)
 #'   onetime_rlang_warn(c("rlang-style warning", i = "Extra info"), id = id)
 #' }
 #'

tests/testthat/test-doctest-onetime-rlang.R

@@ -0,0 +1,17 @@
+# Generated by doctest: do not edit by hand
+# Please edit file in R/rlang.R
+
+test_that("Doctest: onetime-rlang", {
+  # Created from @doctest for `onetime-rlang`
+  # Source file: R/rlang.R
+  # Source line: 11
+  oo <- options(onetime.dir = tempdir(check = TRUE))
+  id <- sample(10000L, 1)
+  for (n in 1:3) {
+    expect_warning(onetime_rlang_warn(c("rlang-style warning", i = "Extra info"), id = id),
+    regexp = if (n == 1L) "rlang" else NA)
+  }
+  onetime_reset(id = id)
+  options(oo)
+})
+

tests/testthat/test-doctest-onetime_message_confirm.R

@@ -0,0 +1,15 @@
+# Generated by doctest: do not edit by hand
+# Please edit file in R/messages.R
+
+test_that("Doctest: onetime_message_confirm", {
+  # Created from @doctest for `onetime_message_confirm`
+  # Source file: R/messages.R
+  # Source line: 110
+  oo <- options(onetime.dir = tempdir(check = TRUE))
+  id <- sample(10000L, 1L)
+  expect_message(onetime_message_confirm("A message to show one or more times", id = id),
+  "A message")
+  onetime_reset(id = id)
+  options(oo)
+})
+

tests/testthat/test-doctest-onetime_warning.R

@@ -0,0 +1,17 @@
+# Generated by doctest: do not edit by hand
+# Please edit file in R/messages.R
+
+test_that("Doctest: onetime_warning", {
+  # Created from @doctest for `onetime_warning`
+  # Source file: R/messages.R
+  # Source line: 16
+  oo <- options(onetime.dir = tempdir(check = TRUE))
+  id <- sample(10000L, 1)
+  for (n in 1:3) {
+    expect_warning(onetime_warning("will be shown once", id = id), regexp = if (n ==
+    1L) "once" else NA)
+  }
+  onetime_reset(id = id)
+  options(oo)
+})
+