local_edition(2) context("Successes") test_that("Success", { succeed() }) context("Failures") test_that("Failure:1", { expect_true(FALSE) }) test_that("Failure:2a", { f <- function() expect_true(FALSE) f() }) context("Errors") test_that("Error:1", { stop("stop") }) test_that("errors get tracebacks", { f <- function() g() g <- function() h() h <- function() stop("!") f() }) context("Skips") test_that("explicit skips are reported", { skip("skip") }) test_that("empty tests are implicitly skipped", { }) context("Warnings") test_that("warnings get backtraces", { f <- function() { warning("def") } f() })
Generated by dwww version 1.15 on Sun May 19 04:16:25 CEST 2024.