tests/testthat/test-counts.R

context("Counts")

test_that("Observed taxa matches a known taxa", {
  expect_true(all(insect_counts$taxa %in% insect_guilds$taxa))
})

test_that("Counts are positive", {
  expect_true(all(insect_counts$count>0))
})
ISU-STRIPS/STRIPSONeal documentation built on May 8, 2019, 1:28 p.m.