tests/testthat/test_Powell-Thyne.R

library(dplyr)

context("Powell-Thyne")

test_that("No country code changes", {
  expect_equal(nrow(PowellThyne %>% filter(powell_ccode != GWn)), 0)
})
xmarquez/PoliticalDatasets documentation built on May 4, 2019, 1:24 p.m.