tests/testthat/test-years_of_schooling.R

test_that("years_of_schooling works", {
  toy_ech_2018 <- years_of_schooling(data = ech::toy_ech_2018)
  testthat::expect_equal(ncol(toy_ech_2018), 586)
  toy_ech_2018 <- level_education(data = ech::toy_ech_2018)
  testthat::expect_equal(ncol(toy_ech_2018), 582)
  toy_ech_2018 <- level_completion(data = ech::toy_ech_2018)
  testthat::expect_equal(ncol(toy_ech_2018), 585)
})
calcita/ech documentation built on March 2, 2024, 7:54 a.m.