tests/testthat/test_read_patch_size_data.R

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

test_that("Read patch size data", {

  data <- read_patch_size_data(root)
  expect_equal(ncol(data), 4)
  expect_true(all(names(data) == c("time", "deme", "patch", "n")))

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