tests/testthat/test_joined_between.R

In mnis: Easy Downloading Capabilities for the Members' Name Information Service

library(mnis)
context("mnis_joined_between")


test_that("mnis_joined_between returns expected format", {
  skip_on_cran()

  xmjb <- mnis_joined_between(
    start_date = "2015-01-01",
    end_date = "2017-01-01",
    party = "labour", tidy = TRUE
  )
  expect_type(xmjb, "list")
  expect_true(tibble::is_tibble(xmjb))
})