tests/testthat/test-metadata.R

context("metadata")

x <- snapgrids()

test_that("metadata returned as expected", {
  expect_is(x, "tbl_df")
  expect_identical(dim(x), c(7L, 4L))
  expect_true(all(x$res %in% c(1000, 2000)))
})
leonawicz/snapgrid documentation built on May 14, 2019, 8:54 a.m.