tests/testthat/test.fd_litter.R

In FoRTExperiment/fortedata: Data from the Forest Resilience and Threshold Experiment

context("litter")

test_that("litter", {
  dat <- fd_litter()

  # All the replicate/plot/subplot codes should exist
  subplots <- fd_subplots()
  expect_true(all(dat$replicate %in% subplots$replicate))
  expect_true(all(dat$plot %in% subplots$plot))
  expect_true(all(dat$subplot %in% subplots$subplot))
})