inst/tinytest/test_with_dir.R

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

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

if (run_r_tests_for_known_hosts()) {
  expectation <- normalizePath(tempdir(), mustWork = FALSE)
  result <- normalizePath(with_dir(expectation, getwd()))

  expect_identical(expectation, result)
}
if (interactive()) {

}