tests/testthat/test-enrolled_school.R

test_that("enrolled_school works", {
  a <- enrolled_school()
  testthat::expect_equal(table(a$school_enrollment), structure(c(967L, 327L), .Dim = 2L, .Dimnames = structure(list(
    c("0", "1")), .Names = ""), class = "table"))
})
calcita/ech documentation built on March 2, 2024, 7:54 a.m.