tests/testthat/test_nze_votes.R

context("nze_votes")

test_that("Sensible ranges", {
	
	data("nze_votes")
	rangedata <- range(nze_votes$per, na.rm = TRUE)
	
	expect_that(all(rangedata >= 0 & rangedata <= 1), is_true())
})
crubba/NZelection documentation built on May 14, 2019, 12:05 p.m.