Only use load_helpers and encoding for devel / unreleased testthat.

Fixes #1503

NEWS.md

@@ -1,3 +1,7 @@
+# devtools 1.13.1
+
+* Fix `test()` compatibility with testthat versions 1.0.2 (#1503).
+
 # devtools 1.13.0
 
 ## New Features

R/test.r

@@ -53,12 +53,14 @@ test <- function(pkg = ".", filter = NULL, ...) {
   Sys.sleep(0.05); utils::flush.console() # Avoid misordered output in RStudio
 
   env <- new.env(parent = ns_env)
-  withr::with_envvar(r_env_vars(), testthat::test_dir(test_path, filter = filter,
-                                                      env = env,
-                                                      ...,
-                                                      load_helpers = FALSE,
-                                                      encoding = pkg$encoding %||% "unknown")
-                                                      )
+
+  testthat_args <- list(test_path, filter = filter, env = env, ... = ...)
+  if (packageVersion("testthat") > "1.0.2") {
+    testthat_args <- c(testthat_args, load_helpers = FALSE, encoding = pkg$encoding %||% "unknown")
+  }
+
+  withr::with_envvar(r_env_vars(),
+    do.call(testthat::test_dir, testthat_args))
 }
 
 find_test_dir <- function(path) {

tests/testthat/test-test.r

@@ -12,3 +12,8 @@ test_that("Package can be tested with testthat not on search path", {
   test("testTestWithDepends", reporter = "stop")
   expect_true(TRUE)
 })
+
+test_that("Filtering works with devtools::test", {
+  test("testTest", filter = "dummy", reporter = "stop")
+  expect_true(TRUE)
+})