tests/testthat/test-get_data_paths.R

context("test-get_data_paths")

test_that("use", {

  all_paths <- get_data_paths(raztr::get_raztr_path("razzo_project"))
  expect_true(
    length(all_paths) > 0
  )
  expect_true(
    is.character(all_paths)
  )

  parameter_files <- file.path(all_paths, "parameters.RDa")
  expect_true(all(file.exists(parameter_files)))
})
richelbilderbeek/razzo documentation built on March 10, 2021, 1:17 p.m.