tests/testthat/test_oldest_barometer.R

In ceopinio/CEOdata: Datasets of the CEO (Centre d'Estudis d'Opinio) for Opinion Polls in Catalonia

require(testthat)
devtools::load_all("../..")
date.min.barometer <- min(CEOdata()$Data, na.rm = TRUE)
  
context("Check that the transformations of the barometer produce meaningful dates.")
correct.date <- as.Date("2014-03-02")

test_that("Date of first presential barometer is 02/03/2014", {
            expect_identical(correct.date, date.min.barometer)
})