inst/tinytest/test_test_helpers.R

In fritools2: Utilities for the Forest Research Institute of the State Baden-Wuerttemberg

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


message(
  "These functions can't be tested, as the result differs on",
  "different machines"
)
expectation <- if (result <- is_running_on_fvafrcu_machines()) {
  TRUE
} else {
  FALSE
}
expect_identical(result, expectation)

## this is tested direct via .gitlab-ci/gitlab-com.R and a call to it in
## .gitlab-ci.yml
expectation <- if (result <- is_running_on_gitlab_com()) {
  TRUE
} else {
  FALSE
}
attributes(result) <- NULL

expect_identical(result, expectation)

# Well, that's ...
result <- run_r_tests_for_known_hosts()
expectation <-
  is_running_on_gitlab_com(verbose = FALSE) ||
    is_running_on_fvafrcu_machines()
expect_identical(result, expectation)






set_run_r_tests("", force = TRUE) # make sure it is not set.
# % get unset option
expect_identical(get_run_r_tests(), FALSE)
expect_error(get_run_r_tests(stop_on_failure = TRUE))

# % set option
set_run_r_tests("", force = TRUE) # make sure it is not set.
expect_identical(set_run_r_tests(12), 12)
expect_identical(set_run_r_tests("12", force = TRUE), "12")
expect_identical(set_run_r_tests(TRUE), NULL)


# % get set option
## % passing
set_run_r_tests(4213, force = TRUE) # All numbers apart from 0 are TRUE
expect_true(get_run_r_tests())
set_run_r_tests("4213", force = TRUE) # All numbers apart from 0 are TRUE
expect_true(get_run_r_tests())
set_run_r_tests(TRUE, force = TRUE)
expect_true(get_run_r_tests())
set_run_r_tests("TRUE", force = TRUE)
expect_true(get_run_r_tests())

## % failing
set_run_r_tests("A", force = TRUE) # "A" is not boolean.
expect_identical(get_run_r_tests(), FALSE)
expect_error(get_run_r_tests(stop_on_failure = TRUE))
set_run_r_tests("0", force = TRUE) # 0 (and "0") is FALSE
expect_identical(get_run_r_tests(), FALSE)
set_run_r_tests(0, force = TRUE) # 0 (and "0") is FALSE
expect_identical(get_run_r_tests(), FALSE)

set_run_r_tests("FALSE", force = TRUE)
expect_identical(get_run_r_tests(), FALSE)
set_run_r_tests(FALSE, force = TRUE)
expect_identical(get_run_r_tests(), FALSE)