inst/tinytest/test_is_success.R

if (interactive()) {
  pkgload::load_all()
  library("tinytest")
}


result <- is_success(0)
expectation <- TRUE
expect_identical(result, expectation)
result <- is_success(-1)
expectation <- FALSE
expect_identical(result, expectation)

Try the fritools package in your browser

Any scripts or data that you put into this service are public.

fritools documentation built on June 8, 2025, 11:59 a.m.