tests/testthat/test_gwf.R

In xmarquez/PoliticalDatasets: Loads cleaned up versions of political data and offers a range of utility functions to fix them up

library(dplyr)

context("Geddes Wright and Frantz")

test_that("autocratic_gwf", {
  expect_equal(nrow(autocratic_gwf %>% filter(gwf_cowcode != GWn)), 0)
  expect_equal(nrow(autocratic_gwf %>% filter(!in_system)), 0)
  
})

test_that("all_gwf", {
  expect_equal(nrow(all_gwf %>% filter(gwf_cowcode != GWn)), 65)
  expect_equal(nrow(all_gwf %>% filter(!in_system)), 1) # Czechoslovakia 1993
})