Merge branch 'main' into feature/add-recursive-dirs

Author: radbasa

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: testthat
 Title: Unit Testing for R
-Version: 3.2.0.9001
+Version: 3.2.1.9001
 Authors@R: c(
     person("Hadley", "Wickham", , "[email protected]", role = c("aut", "cre")),
     person("Posit Software, PBC", role = c("cph", "fnd")),
@@ -22,7 +22,6 @@ Imports:
     cli (>= 3.6.1),
     desc (>= 1.4.2),
     digest (>= 0.6.33),
-    ellipsis (>= 0.3.2),
     evaluate (>= 0.21),
     jsonlite (>= 1.8.7),
     lifecycle (>= 1.0.3),

NEWS.md

@@ -1,10 +1,27 @@
 # testthat (development version)
 
 * `test_dir()` gains a `recursive` argument which allows test files in nested directories (#1605).
+# testthat 3.2.1
+
+* Fix incorrect format string detected by latest R-devel. Fix thanks to 
+  Tomas Kalibera.
+
+* `expect_snapshot()` handles unexpected errors like errors outside of 
+  snapshots, i.e. they terminate the entire test and get a traceback (#1906).
 
 * `JunitReporter()` now uses ensures numeric values are saved the xml file 
   with `.` as decimal separator. (@maksymiuks, #1660)
 
+* `local_mocked_bindings()` can now mock any object, not just functions 
+  (#1896).
+
+* `skip_if_offline()` now uses `captive.apple.com` by default. This is the 
+  hostname that Apple devices use to check that they're online so it should 
+  have a higher reliability than `r-project.org` (@jdblischak, #1890).
+
+* `test_file(desc = )` will now find `describe()` tests as well as `test_that()`
+  tests (#1903).
+
 # testthat 3.2.0
 
 ## Lifecycle changes

R/deprec-condition.R

@@ -129,7 +129,7 @@ get_messages <- function(x) {
 #' has been deprecated.
 #'
 #' @param x An error object.
-#' @inheritParams ellipsis::dots_empty
+#' @inheritParams rlang::args_dots_empty
 #'
 #' @details
 #' A few classes are hard-coded as uninformative:

R/expect-condition.R

@@ -254,8 +254,11 @@ expect_condition_matching <- function(base_class,
                                       inherit = TRUE,
                                       info = NULL,
                                       label = NULL,
-                                      trace_env = caller_env()) {
-  ellipsis::check_dots_used(action = warn)
+                                      trace_env = caller_env(),
+                                      error_call = caller_env()) {
+  check_dots_used(error = function(cnd) {
+    warn(conditionMessage(cnd), call = error_call)
+  })
 
   matcher <- cnd_matcher(
     base_class,

R/mock2.R

@@ -93,7 +93,8 @@
 #' )
 #' ```
 #' @export
-#' @param ... Name-value pairs providing functions to mock.
+#' @param ... Name-value pairs providing new values (typically functions) to
+#'   temporarily replace the named bindings.
 #' @param code Code to execute with specified bindings.
 #' @param .env Environment that defines effect scope. For expert use only.
 #' @param .package The name of the package where mocked functions should be
@@ -195,14 +196,6 @@ check_bindings <- function(x, error_call = caller_env()) {
       call = error_call
     )
   }
-
-  is_fun <- map_lgl(x, is.function)
-  if (!any(is_fun)) {
-    cli::cli_abort(
-      "All elements of {.arg ...} must be functions.",
-      call = error_call
-    )
-  }
 }
 
 # For testing -------------------------------------------------------------
@@ -244,6 +237,8 @@ show_bindings <- function(name, env = caller_env()) {
   invisible()
 }
 
+test_mock_value <- 10
+
 env_desc <- function(env) {
   cat(obj_address(env), ": ", env_name(env), "\n", sep = "")
 }

R/reporter-junit.R

@@ -56,7 +56,7 @@ JunitReporter <- R6::R6Class("JunitReporter",
     },
 
     start_reporter = function() {
-      check_installed("xml2", "JunitReporter")
+      check_installed("xml2", "to use JunitReporter")
 
       self$timer <- private$proctime()
       self$doc <- xml2::xml_new_document()

R/skip.R

@@ -122,7 +122,7 @@ package_version <- function(x) {
 
 #' @export
 #' @rdname skip
-skip_if_offline <- function(host = "r-project.org") {
+skip_if_offline <- function(host = "captive.apple.com") {
   skip_on_cran()
   check_installed("curl")
 

R/snapshot-manage.R

@@ -29,8 +29,7 @@ snapshot_accept <- function(files = NULL, path = "tests/testthat") {
 #' @rdname snapshot_accept
 #' @export
 snapshot_review <- function(files = NULL, path = "tests/testthat") {
-  check_installed("shiny", "snapshot_review()")
-  check_installed("diffviewer", "snapshot_review()")
+  check_installed(c("shiny", "diffviewer"), "to use snapshot_review()")
 
   changed <- snapshot_meta(files, path)
   if (nrow(changed) == 0) {

R/snapshot.R

@@ -94,7 +94,7 @@ expect_snapshot <- function(x,
     if (error) {
       expect(FALSE, msg, trace = state$error[["trace"]])
     } else {
-      exp_signal(expectation("error", msg, trace = state$error[["trace"]]))
+      cnd_signal(state$error)
     }
     return()
   }

R/source.R

@@ -71,7 +71,7 @@ filter_desc <- function(exprs, desc = NULL, error_call = caller_env()) {
   for (i in seq_along(exprs)) {
     expr <- exprs[[i]]
 
-    if (!is_call(expr, "test_that", n = 2)) {
+    if (!is_call(expr, c("test_that", "describe"), n = 2)) {
       if (!found) {
         include[[i]] <- TRUE
       }