tests/testthat/test-defaults.R

In leonawicz/snapprep: Prepare And Curate Useful Data Sets From Raw SNAP Data

context("defaults")

x <- snapdef()

test_that("snap defaults are as expected", {
  expect_is(x, "list")
  expect_equal(length(x$ar5dir_dist_stats), 2)
  expect_equal(x$ar5cru, x$ar5all[6])
  expect_equal(length(x), 23)
})