tests/testthat/test_full_biog.R

library(mnis)
context("full_biog")


test_that("mnis_full_biog returns expected format", {

  #skip_on_cran()

  xfb <- mnis_full_biog(c(172))
  expect_true(tibble::is_tibble(xfb))
  expect_length(xfb, 394)
  expect_type(xfb, "list")
  expect_true(nrow(xfb)==1)


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