tests/testthat/test-sysdata.R

In JosepER/lissyrtools: Tools for LISSY Jobs

# test-sysdata

library(lissyrtools)
context("data in sysdata")

# data_inc_ref_year -------------------------------------------------------

test_that("data_inc_ref_year does not have repeated rows", {

  expect_equal(nrow(unique(lissyrtools::data_inc_ref_year)),
               nrow(lissyrtools::data_inc_ref_year))

})