Set the TESTTHAT_PKG environment variable

Fixes r-lib/testthat#787

NEWS.md

@@ -1,5 +1,9 @@
 # devtools 2.0.1.9000 - Development
 
+* `test()`, `test_coverage()` and `test_coverage_file()` now set the
+  `TESTTHAT_PKG` environment variable, so it is more consistent with running
+  the tests during `R CMD check` (testthat#787).
+
 * `check()` now replaces existing environment variables rather than appending
   them (#1914).
 

R/test.R

@@ -71,7 +71,9 @@ test <- function(pkg = ".", filter = NULL, ...) {
   withr::with_options(
     c(useFancyQuotes = FALSE),
     withr::with_envvar(
-      r_env_vars(),
+      c(r_env_vars(),
+        "TESTTHAT_PKG" = pkg$package
+      ),
       do.call(testthat::test_dir, testthat_args)
     )
   )
@@ -88,7 +90,9 @@ test_coverage <- function(pkg = ".", show_report = interactive(), ...) {
   save_all()
 
   withr::with_envvar(
-    r_env_vars(),
+    c(r_env_vars(),
+      "TESTTHAT_PKG" = pkg$package
+    ),
     coverage <- covr::package_coverage(pkg$path, ...)
   )
 
@@ -224,7 +228,9 @@ test_coverage_file <- function(file = find_active_file(), filter = TRUE, show_re
   env <- load_all(pkg$path, quiet = TRUE)$env
 
   withr::with_envvar(
-    r_env_vars(),
+    c(r_env_vars(),
+      "TESTTHAT_PKG" = pkg$package
+    ),
     withr::with_dir("tests/testthat", {
       coverage <- covr::environment_coverage(env, test_files, ...)
     })

tests/testthat/test-test.R

@@ -24,3 +24,7 @@ test_that("devtools::test_file works", {
   test_file("testTest/R/dummy.R", pkg = "testTest", reporter = "stop")
   expect_true(TRUE)
 })
+
+test_that("TESTTHAT_PKG environment varaible is set", {
+  expect_equal(Sys.getenv("TESTTHAT_PKG"), "devtools")
+})