test_this now behaves like lest_this, lest_this has been deprecated.

testers save source files and reaload package now before running

Author: s-fleck

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: testthis
 Type: Package
 Title: Utils and 'RStudio' Addins to Make Testing Even More Fun
-Version: 1.0.2.9000
+Version: 1.0.3
 Authors@R: person("Stefan", "Fleck", email = "[email protected]", role = c("aut", "cre"))
 Maintainer: Stefan Fleck <[email protected]>
 Description:

NEWS.md

@@ -1,5 +1,10 @@
-# testthis 1.0.2.9000
+# testthis 1.0.3
 * Maintenance Release to make vignette comply with new CRAN guidelines
+* test (`test_this()`, `test_subdir()`, etc..) functions now save all files in 
+  Rstudio and reload the package before running tests.
+* `lest_this()` has been Deprecated. `test_this()` now behaves like 
+  `lest_this()`
+  
 
 # testthis 1.0.2
 

R/test_subdir.R

@@ -44,6 +44,12 @@
 #'
 #' @export
 test_subdir <- function(subdir, ...){
+  if (requireNamespace("rstudioapi", quietly = TRUE)){
+    rstudioapi::documentSaveAll()
+  }
+
+  devtools::load_all(usethis::proj_get())
+
   testthat::test_dir(file.path(
     usethis::proj_get(), testthat::test_path(), subdir
   ))
@@ -93,6 +99,12 @@ test_manual <- function(...){
 test_all <- function(
   ...
 ){
+  if (requireNamespace("rstudioapi", quietly = TRUE)){
+    rstudioapi::documentSaveAll()
+  }
+
+  devtools::load_all(usethis::proj_get())
+
   pkg_dir <- usethis::proj_get()
 
   dirs    <- basename(

R/test_this.R

@@ -1,14 +1,13 @@
 #' Test this file
 #'
-#' This is a convenience function to run testthat tests in a single .R file. If
-#' the file currently open in the RStudio editor is called \code{my_function.R},
-#' \code{test_this()} calls \code{testthat::test_file()} on
-#' "tests/testthat/test_my_function.R". If the filename of the currently open
-#' file with starts with \code{test_} it will call \code{testthat::test_file()}
-#' on the current file.
+#' Runs testthat tests in a single .R file. If the file currently open in the
+#' RStudio editor is called `my_function.R`, `test_this()` calls
+#' `testthat::test_file()` on \file{tests/testthat/test_my_function.R}. If
+#' the filename of the currently open file with starts with `test_` it will
+#' call `testthat::test_file()` on the current file.
 #'
 #' This is useful in cases where you don't want to run all tests in a package
-#' via \code{devtools::test()} (CTRL+SHIFT+T).
+#' via `devtools::test()` (CTRL+SHIFT+T).
 #'
 #' @param ... passed on to [testthat::test_file()]
 #'
@@ -19,6 +18,12 @@
 test_this <- function(...){
   fname <- get_testfile_name()
 
+  if (requireNamespace("rstudioapi", quietly = TRUE)){
+    rstudioapi::documentSaveAll()
+  }
+
+  devtools::load_all(usethis::proj_get())
+
   if(file.exists(fname)){
     message("Running tests in ", fname)
     testthat::test_file(fname, ...)
@@ -32,11 +37,14 @@ test_this <- function(...){
 
 
 
-#' \code{lest_this()} does the same, but calls \code{devtools::load_all()}
-#' first.
+#' \code{lest_this()} Deprecated. Please us `test_this()` instead.
 #' @export
 #' @rdname test_this.R
 lest_this <- function(...){
-  devtools::load_all()
+  .Deprecated(
+    msg = paste(
+      "'test_this()' now reloads package by default. 'lest_this()' is no",
+      "longer required and will be dropped in future versions."
+    ))
   test_this(...)
 }