Skip a test if debugme will be loaded in the reprex

See r-lib/debugme#50
tidyverse · Feb 25, 2021 · 324624f · 324624f
1 parent 5fd5377
commit 324624f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-env.R b/tests/testthat/test-env.R
@@ -19,6 +19,12 @@ test_that("reprex doesn't write into environment of caller", {
 
 test_that("I understand exactly what I'm putting in reprex env", {
   skip_on_cran()
+  # https://github.com/r-lib/debugme/issues/50
+  skip_if(
+    requireNamespace("debugme", quietly = TRUE),
+    "styler --> tibble --> pillar --> debugme --> .Random.seed thing"
+  )
+
   ret <- reprex(input = c("a <- 'a'", "ls(all.names = TRUE)"))
   ret <- ret[grepl("^#>", ret)]
   expect_identical(ret, "#> [1] \"a\"")