tests/testthat/test-cantemp_meta.R

context("cantemp_meta")

test_that("cantemp_meta works correctly", {

  meta <- cantemp_meta()
  expect_is(meta, "data.frame")
  expect_true(nrow(meta) == 338)
})
patrickbarks/cantempr documentation built on May 22, 2019, 2:45 p.m.