tests/testthat/test-vegtable_stat.R

In vegtable: Handling Vegetation Data Sets

context("testing statistic outputs")

test_that("statistics are printed", {
  # Summary of vegtable objects
  result <- evaluate_promise(print(vegtable_stat(Kenya_veg)), print = TRUE)
  expect_true(grepl("## Metadata", result$output))
})