tests/testthat/test_mps_on_date.R

In EvanOdell/parlitools: Tools for Analysing UK Politics

library(parlitools)
context("mps_on_date")

test_that("mps_on_date return expected format", {
  skip_on_cran()

  xmpon <- mps_on_date("2018-01-30")
  # expect_length(xmpon, 37)
  expect_type(xmpon, "list")
  expect_true(tibble::is_tibble(xmpon))
  expect_true(is.na(xmpon$election_type[1]) == FALSE)
  expect_true(nrow(xmpon) == 649)

  xmpon2 <- mps_on_date(date1 = "1990-04-30", date2 = "2015-05-10")
  # expect_length(xmpon2, 22)
  expect_type(xmpon2, "list")
  expect_true(tibble::is_tibble(xmpon2))
  # expect_true(nrow(xmpon2)==1730)

  xmpon3 <- mps_on_date(
    date2 = "1990-04-30", date1 = "2015-05-10",
    tidy = FALSE
  )
  # expect_length(xmpon3, 22)
  expect_type(xmpon3, "list")
  expect_true(tibble::is_tibble(xmpon3))
  # expect_true(nrow(xmpon3)==1730)
})