add test

Author: maelle

R/import-standalone-s3-register.R

@@ -0,0 +1,14 @@
+# @examplesVCR
+
+    Code
+      out$get_section("examples")
+    Output
+      \examples{
+      \dontshow{if (bla) withAutoprint(\{ # examplesIf}
+      maybe-run-this-code
+      \dontshow{\}) # examplesIf}
+      \dontshow{vcr::insert_example_cassette('foobar()', package = 'vcr')}
+      httr2::request('http://r-project.org')
+      \dontshow{vcr::eject_cassette()}
+      } 
+

tests/testthat/_snaps/roxygen.md

@@ -0,0 +1,15 @@
+test_that("@examplesVCR", {
+  out <- roxygen2::roc_proc_text(
+    roxygen2::rd_roclet(),
+    "
+    #' @name a
+    #' @title a
+    #' @examplesIf bla
+    #' maybe-run-this-code
+    #' @examplesVCR foobar()
+    #' httr2::request('http://r-project.org')
+    NULL"
+  )[[1]]
+
+  expect_snapshot(out$get_section("examples"))
+})