tests/testthat/validate_get_members.R

In eliseuberoi/clcontributions: Download data on Members' activities in Parliament from parliamentary search

### Download data for unit testing utils/get_members.R

# Imports ---------------------------------------------------------------------

source("tests/testthat/validate.R")

# Mocks data ------------------------------------------------------------------

#' Fetch mocks data for unit tests of get_members
#'
#' @keywords internal

get_members_mocks_data <- function() {

  # Download get_member_data
  path <- stringr::str_c(
    "http://data.parliament.uk/membersdataplatform/services/",
    "mnis/members/query/house=Commons|IsEligible=true")
  m <- httr::GET(url = path)
  write(m, "get_members_mocks_data")
}

# Validation data -------------------------------------------------------------

#' Fetch validation data for unit tests of get_members
#'
#' @keywords internal

get_members_validation_data <- function() {

  # Download get_member_data
  m <- get_members()
  write(m, "get_members")
}

# Fetch all data --------------------------------------------------------------

#' Fetch mocks and validation data for unit tests of get_members
#'
#' @keywords internal

get_members_test_data <- function() {
  get_members_mocks_data()
  get_members_validation_data()
}