tests/testthat/test-trace.R

In httptest2: Test Helpers for 'httr2'

test_that("safe_untrace makes mocking not error if not already traced", {
  expect_error(use_mock_api(), NA)
  expect_error(stop_mocking(), NA)
  expect_error(stop_mocking(), NA)
})

test_that("safe_untrace makes recording not error if not already traced", {
  expect_error(start_capturing(), NA)
  expect_error(stop_capturing(), NA)
  expect_error(stop_capturing(), NA)
})

test_that("quietly muffles messages, conditional on httptest2.debug.trace", {
  expect_message(quietly(message("A message!")), NA)
  options(httptest2.debug.trace = TRUE)
  on.exit(options(httptest2.debug.trace = NULL))
  expect_message(quietly(message("A message!")), "A message!")
})