Set useFancyQuotes = FALSE when running tests

R CMD check sets this when running tests, so we should as well
r-lib · Jul 18, 2018 · 6c30827 · 6c30827
1 parent b695514
commit 6c30827
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -1,5 +1,8 @@
 # devtools 1.13.3.9000
 
+* `test()` now sets `useFancyQuotes = FALSE` to better mimic the environment tests
+  are run under with `R CMD check` (#1735).
+
 * `test_file()` and `test_coverage_file()` now have RStudio addins (#1650)
 
 * `test()` no longer passes encoding argument to `testthat::test_dir()` (#1776)

diff --git a/R/test.r b/R/test.r
@@ -68,8 +68,11 @@ test <- function(pkg = ".", filter = NULL, ...) {
     testthat_args <- c(testthat_args, load_helpers = FALSE)
   }
 
-  withr::with_envvar(r_env_vars(),
-    do.call(testthat::test_dir, testthat_args))
+  withr::with_options(c(useFancyQuotes = FALSE),
+    withr::with_envvar(r_env_vars(),
+      do.call(testthat::test_dir, testthat_args)
+    )
+  )
 }
 
 #' @export