tests/testthat/test_extra.R

library(mnis)
context("mnis_extra")


test_that("mnis_extra returns expected format", {

  #skip_on_cran()

  xmnise <- mnis_extra(4019)
  expect_length(xmnise, 193)
  expect_type(xmnise, "list")
  expect_true(nrow(xmnise)==1)
  expect_true(tibble::is_tibble(xmnise))

})
EvanOdell/mnis documentation built on March 21, 2018, 10:52 p.m.