tests/testthat/test_read_parameters.R

root <- system.file("extdata", "sim-example", package = "brachypoder")

test_that("", {

  pars <- read_parameters(root)
  expect_true(is.list(pars))
  expect_true("pgood" %in% names(pars))

})
rscherrer/brachypoder documentation built on Oct. 2, 2024, 11:18 p.m.