test interaction with roxygen and base indention

Author: lorenzwalthert

tests/testthat/test-cache-interaction-base-indention.R

@@ -0,0 +1,30 @@
+test_that("base_indention is respected in caching", {
+  on.exit(clear_testthat_cache())
+  text <- c("1 + 1")
+  fresh_testthat_cache()
+  without_indention <- style_text(text)
+  fresh_testthat_cache()
+  style_text(text, base_indention = 5)
+  expect_equal(
+    style_text(text),
+    without_indention
+  )
+})
+
+test_that("include_roxygen_exmples is respected in caching", {
+  on.exit(clear_testthat_cache())
+  text <- c("#' Roxygen", "#'", "#' @examples", "#' 1+1", "1 + 1")
+  fresh_testthat_cache()
+  with_examples <- style_text(text)
+  fresh_testthat_cache()
+  style_text(text, include_roxygen_examples = FALSE)
+  expect_equal(
+    style_text(text, include_roxygen_examples = TRUE),
+    with_examples
+  )
+})
+
+
+test_that("cache is deactivated at end of caching related testthat file", {
+  expect_false(cache_is_activated())
+})

tests/testthat/test-cache-interaction-more-specs.R

@@ -0,0 +1,16 @@
+test_that("base_indention is respected in caching", {
+  on.exit(clear_testthat_cache())
+  text <- c("1 + 1")
+  fresh_testthat_cache()
+  without_indention <- style_text(text)
+  fresh_testthat_cache()
+  style_text(text, base_indention = 5)
+  expect_equal(
+    style_text(text),
+    without_indention
+  )
+})
+
+test_that("cache is deactivated at end of caching related testthat file", {
+  expect_false(cache_is_activated())
+})

tests/testthat/test-cache-interaction-roxygen-code-examples.R

@@ -56,5 +56,8 @@ test_that("roxzgen code examples are written to cache as whole expressions bring
   expect_gt(first["elapsed"], 6 * second["elapsed"])
 })
 
+test_that("cache is deactivated at end of caching related testthat file", {
+  expect_false(cache_is_activated())
+})
 
 # consider dropping transformer text from cache key to speed up.