Merge commit '9bfe1314e075a1b3bce3eb32dbd33fa795a869ea'

Author: EmilHvitfeldt

.Rbuildignore

@@ -23,3 +23,5 @@
 ^[\.]?air\.toml$
 ^\.vscode$
 ^\.git-blame-ignore-rev$
+^CLAUDE\.md$
+^\.claude$

.claude/settings.local.json

@@ -0,0 +1,8 @@
+{
+  "permissions": {
+    "allow": [
+      "Bash(find:*)"
+    ],
+    "deny": []
+  }
+}

CLAUDE.md

@@ -0,0 +1,89 @@
+# CLAUDE.md
+
+This file provides guidance to Claude Code (claude.ai/code) when working with code in this repository.
+
+## About This Project
+
+testthat is R's most popular unit testing framework, used by thousands of CRAN packages. It provides functions to make testing R code as fun and addictive as possible, with clear expectations, visual progress indicators, and seamless integration with R package development workflows.
+
+## Key Development Commands
+
+### Testing
+- `devtools::test()` or `Ctrl/Cmd+Shift+T` in RStudio - Run all tests
+- `devtools::test_file("tests/testthat/test-filename.R")` - Run tests in a specific file
+- `testthat::test_local()` - Run tests for local source package
+- `testthat::test_package("testthat")` - Run tests for installed package
+- `R CMD check` - Full package check including tests
+
+### Building and Installation
+- `devtools::load_all()` or `Ctrl/Cmd+Shift+L` - Load package for development
+- `devtools::document()` - Generate documentation
+- `devtools::check()` - Run R CMD check
+- `devtools::install()` - Install package locally
+
+## Core Architecture
+
+### Main Components
+
+1. **Core Testing Functions** (`R/test-that.R`, `R/test-package.R`):
+   - `test_that()` - The fundamental testing function
+   - `test_local()`, `test_package()`, `test_check()` - Different ways to run test suites
+
+2. **Expectations** (`R/expect-*.R`):
+   - Modular expectation functions (equality, conditions, types, etc.)
+   - Each expectation type has its own file following the pattern `expect-[type].R`
+
+3. **Reporters** (`R/reporter*.R`):
+   - Different output formats for test results
+   - Object-oriented design with base `Reporter` class
+   - Includes check, debug, progress, summary, JUnit, TAP formats
+
+4. **Snapshot Testing** (`R/snapshot*.R`):
+   - Value snapshots, file snapshots, output snapshots
+   - Automatic management and comparison of expected outputs
+
+5. **Parallel Testing** (`R/parallel*.R`):
+   - Multi-core test execution
+   - Configuration via `Config/testthat/parallel: true` in DESCRIPTION
+
+6. **Mocking** (`R/mock*.R`, `R/mock2*.R`):
+   - Function mocking capabilities
+   - Both legacy (`mock.R`) and modern (`mock2*.R`) implementations
+
+### Key Design Patterns
+
+- **Editions**: testthat has different "editions" with varying behavior, controlled by `Config/testthat/edition`
+- **Reporters**: Extensible reporting system using R6 classes
+- **Lazy Evaluation**: Expectations use substitute() and lazy evaluation for better error messages
+- **C++ Integration**: Core functionality implemented in C++ for performance
+
+### File Organization
+
+- `R/` - All R source code, organized by functionality
+- `src/` - C++ source code and Makevars
+- `inst/include/testthat/` - C++ headers for other packages to use
+- `tests/testthat/` - Package's own comprehensive test suite
+- `vignettes/` - Documentation on testing concepts and workflows
+
+### Important Configuration
+
+The package uses several DESCRIPTION fields for configuration:
+- `Config/testthat/edition: 3` - Sets testthat edition
+- `Config/testthat/parallel: true` - Enables parallel testing
+- `Config/testthat/start-first` - Tests to run first in parallel mode
+
+### C++ Testing Infrastructure
+
+testthat provides C++ testing capabilities via Catch framework:
+- Headers in `inst/include/testthat/`
+- Test runner infrastructure in `src/test-runner.cpp`
+- Integration with R's testing system
+
+### Snapshot Testing Workflow
+
+- Snapshots stored in `tests/testthat/_snaps/`
+- Different snapshot types: values, files, output
+- Version-specific snapshots for different R versions
+- Use `testthat::snapshot_accept()` to update snapshots
+
+This codebase prioritizes backward compatibility, comprehensive testing, and clear, descriptive error messages to help R developers write better tests.

NAMESPACE

@@ -156,6 +156,7 @@ export(it)
 export(local_edition)
 export(local_mock)
 export(local_mocked_bindings)
+export(local_on_cran)
 export(local_reproducible_output)
 export(local_snapshotter)
 export(local_test_context)

NEWS.md

@@ -1,5 +1,8 @@
 # testthat (development version)
 
+* New `local_on_cran(TRUE)` allows you to simulate how your tests will run on CRAN (#2112).
+* `expect_no_*()` now executes the entire code block, rather than stopping at the first message or warning (#1991).
+* `expect_no_failures()` and `expect_no_successes()` are now deprecated as `expect_success()` now test for no failures and `expect_failure()` tests for no successes (#)
 * New `pass()` function to use in place of `succeed()` (#2113).
 * `expectation()` is now a combination of `new_expectation()` and `exp_signal()` (#2125).
 * `is_null()`/`matches()` deprecated in 2.0.0 (2017-12-19) and `is_true()`/`is_false()` deprecated in 2.1.0 (2019-04-23) have been removed (#2109).

R/deprec-condition.R

@@ -101,7 +101,7 @@ capture_messages <- function(code) {
     code,
     message = function(condition) {
       out$push(condition)
-      maybe_restart("muffleMessage")
+      tryInvokeRestart("muffleMessage")
     }
   )
 
@@ -121,7 +121,7 @@ capture_warnings <- function(code, ignore_deprecation = FALSE) {
       }
 
       out$push(condition)
-      maybe_restart("muffleWarning")
+      tryInvokeRestart("muffleWarning")
     }
   )
 

R/evaluate-promise.R

@@ -20,14 +20,14 @@ evaluate_promise <- function(code, print = FALSE) {
   handle_warning <- function(condition) {
     if (!is_deprecation(condition)) {
       warnings$push(condition)
-      maybe_restart("muffleWarning")
+      tryInvokeRestart("muffleWarning")
     }
   }
 
   messages <- Stack$new()
   handle_message <- function(condition) {
     messages$push(condition)
-    maybe_restart("muffleMessage")
+    tryInvokeRestart("muffleMessage")
   }
 
   path <- withr::local_tempfile()

R/example.R renamed to R/examples.R

@@ -19,7 +19,12 @@
 #' @name comparison-expectations
 NULL
 
-expect_compare <- function(operator = c("<", "<=", ">", ">="), act, exp) {
+expect_compare_ <- function(
+  operator = c("<", "<=", ">", ">="),
+  act,
+  exp,
+  trace_env = caller_env()
+) {
   operator <- match.arg(operator)
   op <- match.fun(operator)
 
@@ -34,26 +39,25 @@ expect_compare <- function(operator = c("<", "<=", ">", ">="), act, exp) {
   if (length(cmp) != 1 || !is.logical(cmp)) {
     abort("Result of comparison must be a single logical value")
   }
-  expect(
-    if (!is.na(cmp)) cmp else FALSE,
-    sprintf(
+  if (!isTRUE(cmp)) {
+    msg <- sprintf(
       "%s is %s %s. Difference: %.3g",
       act$lab,
       msg,
       exp$lab,
       act$val - exp$val
-    ),
-    trace_env = caller_env()
-  )
-  invisible(act$val)
+    )
+    return(fail(msg, trace_env = trace_env))
+  }
+  pass(act$val)
 }
 #' @export
 #' @rdname comparison-expectations
 expect_lt <- function(object, expected, label = NULL, expected.label = NULL) {
   act <- quasi_label(enquo(object), label, arg = "object")
   exp <- quasi_label(enquo(expected), expected.label, arg = "expected")
 
-  expect_compare("<", act, exp)
+  expect_compare_("<", act, exp)
 }
 
 #' @export
@@ -62,7 +66,7 @@ expect_lte <- function(object, expected, label = NULL, expected.label = NULL) {
   act <- quasi_label(enquo(object), label, arg = "object")
   exp <- quasi_label(enquo(expected), expected.label, arg = "expected")
 
-  expect_compare("<=", act, exp)
+  expect_compare_("<=", act, exp)
 }
 
 #' @export
@@ -71,7 +75,7 @@ expect_gt <- function(object, expected, label = NULL, expected.label = NULL) {
   act <- quasi_label(enquo(object), label, arg = "object")
   exp <- quasi_label(enquo(expected), expected.label, arg = "expected")
 
-  expect_compare(">", act, exp)
+  expect_compare_(">", act, exp)
 }
 
 #' @export
@@ -80,7 +84,7 @@ expect_gte <- function(object, expected, label = NULL, expected.label = NULL) {
   act <- quasi_label(enquo(object), label, arg = "object")
   exp <- quasi_label(enquo(expected), expected.label, arg = "expected")
 
-  expect_compare(">=", act, exp)
+  expect_compare_(">=", act, exp)
 }