tests/testthat/test-01-tutorial-data.R

In cbig/zonator: Utilities for Zonation Spatial Conservation Prioritization Software

context("Tutorial data existence")

options <- get_options()

test_that("Zonation tutorial data is available", {

  expect_true(file.exists(options$tutorial.dir),
              "Tutorial directory not found in root of the package.")
  expect_true(file.exists(options$setup.dir),
              "Input setup directory not found in the tutorial folder.")
  expect_true(file.exists(options$bat.file),
              "Tutorial batch file not found in the tutorial folder.")
  expect_true(file.exists(options$dat.file),
              "Tutorial dat file not found in the tutorial input folder.")
  expect_true(file.exists(options$spp.file),
              "Tutorial spp file not found in the tutorial input folder.")

  expect_true(file.exists(options$groups.file),
              "Tutorial groups file not found in the tutorial input folder.")
  expect_true(file.exists(options$condition.file),
              "Tutorial condition file not found in the tutorial input folder.")

})