tests/testthat/test_read_parameters.R

In rscherrer/speciomer: Import Speciome Data into R

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

test_that("", {

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

})