tests/testthat/test_all_members.R

library(mnis)
context("all_members")


test_that("mnis_all_members returns expected format", {

    #skip_on_cran()

    xmnisallmembers <- mnis_all_members(house = 'all', party = NULL,
                                        tidy = TRUE, tidy_style = "snake_case")
    expect_length(xmnisallmembers, 23)
    expect_type(xmnisallmembers,"list")
    expect_true(tibble::is_tibble(xmnisallmembers))


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