tests/testthat/test_lords.R

In houseofcommonslibrary/clmnis: An R package for downloading data from the Parliamentary Members Names Information Service

### Test Lords functions
context("Lords functions")

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

source("validate.R")

# Mocks -----------------------------------------------------------------------

mock_fetch_query_data <- function(house, data_output) {
    switch(data_output,
        "BasicDetails" = read("lords_basic_details"),
        "HouseMemberships" = read("lords_house_memberships"),
        "Parties" = read("lords_party_memberships"),
        "OtherParliaments" = read("lords_other_parliaments"),
        "ElectionsContested" = read("lords_contested_elections"),
        "GovernmentPosts" = read("lords_government_roles"),
        "OppositionPosts" = read("lords_opposition_roles"),
        "ParliamentaryPosts" = read("lords_parliamentary_roles"),
        "MaidenSpeeches" = read("lords_maiden_speeches"),
        "Addresses" = read("lords_addresses")
    )
}

# Tests -----------------------------------------------------------------------

test_that("fetch_lords processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "full_title",
            "lord_type",
            "current_status",
            "current_status_reason",
            "gender",
            "date_of_death")

        obs <- fetch_lords()
        exp <- readRDS("data/fetch_lords.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords(from_date = TEST_DATE, to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_memberships processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "seat_incumbency_start_date",
            "seat_incumbency_end_date")

        obs <- fetch_lords_memberships()
        exp <- readRDS("data/fetch_lords_memberships.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_memberships(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_memberships_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_party_memberships processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
          "mnis_id",
          "given_name",
          "family_name",
          "display_name",
          "party_mnis_id",
          "party_name",
          "party_membership_start_date",
          "party_membership_end_date")

        obs <- fetch_lords_party_memberships()
        exp <- readRDS("data/fetch_lords_party_memberships.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_party_memberships(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_party_memberships_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_party_memberships(while_lord = FALSE)
        exp <- readRDS("data/fetch_lords_party_memberships_while_lord.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_party_memberships(collapse = TRUE)
        exp <- readRDS("data/fetch_lords_party_memberships_collapse.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_other_parliaments processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "other_parliaments_mnis_id",
            "other_parliaments_name",
            "other_parliaments_incumbency_start_date",
            "other_parliaments_incumbency_end_date")

        obs <- fetch_lords_other_parliaments()
        exp <- readRDS("data/fetch_lords_other_parliaments.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_other_parliaments(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_other_parliaments_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_contested_elections processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "contested_election_mnis_id",
            "contested_election_name",
            "contested_election_date",
            "contested_election_type",
            "contested_election_constituency")

        obs <- fetch_lords_contested_elections()
        exp <- readRDS("data/fetch_lords_contested_elections.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_contested_elections(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_contested_elections_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_government_roles processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "government_role_mnis_id",
            "government_role_name",
            "government_role_incumbency_start_date",
            "government_role_incumbency_end_date",
            "government_role_unpaid")

        obs <- fetch_lords_government_roles()
        exp <- readRDS("data/fetch_lords_government_roles.Rdata")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_government_roles(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_government_roles_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_government_roles(while_lord = FALSE)
        exp <- readRDS("data/fetch_lords_government_roles_while_lord.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_opposition_roles processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "opposition_role_mnis_id",
            "opposition_role_name",
            "opposition_role_incumbency_start_date",
            "opposition_role_incumbency_end_date",
            "opposition_role_unpaid")

        obs <- fetch_lords_opposition_roles()
        exp <- readRDS("data/fetch_lords_opposition_roles.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_opposition_roles(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_opposition_roles_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_opposition_roles(while_lord = FALSE)
        exp <- readRDS("data/fetch_lords_opposition_roles_while_lord.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_parliamentary_roles processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "parliamentary_role_mnis_id",
            "parliamentary_role_name",
            "parliamentary_role_incumbency_start_date",
            "parliamentary_role_incumbency_end_date",
            "parliamentary_role_unpaid")

        obs <- fetch_lords_parliamentary_roles()
        exp <- readRDS("data/fetch_lords_parliamentary_roles.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_parliamentary_roles(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_parliamentary_roles_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_parliamentary_roles(while_lord = FALSE)
        exp <- readRDS("data/fetch_lords_parliamentary_roles_while_lord.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_maiden_speeches processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "maiden_speech_house",
            "maiden_speech_date",
            "maiden_speech_hansard_reference",
            "maiden_speech_subject")

        obs <- fetch_lords_maiden_speeches()
        exp <- readRDS("data/fetch_lords_maiden_speeches.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")

        obs <- fetch_lords_maiden_speeches(
            from_date = TEST_DATE,
            to_date = TEST_DATE)
        exp <- readRDS("data/fetch_lords_maiden_speeches_from_to.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})

test_that("fetch_lords_addresses processes results correctly.", {
    with_mock("clmnis::fetch_query_data" = mock_fetch_query_data, {

        cols <- c(
            "mnis_id",
            "given_name",
            "family_name",
            "display_name",
            "address_type_mnis_id",
            "address_type",
            "address_is_preferred",
            "address_is_physical",
            "address_note",
            "address_1",
            "address_2",
            "address_3",
            "address_4",
            "address_5",
            "postcode",
            "phone",
            "fax",
            "email",
            "address_other")

        obs <- fetch_lords_addresses()
        exp <- readRDS("data/fetch_lords_addresses.RData")
        compare_obs_exp(obs, exp, cols, "mnis_id")
    })
})