tests/testthat/test-admission_reqs.R

In IPEDS: Data from the Integrated Post-Secondary Education Data System

library(testthat)
library(dplyr)

testthat::test_that("number of columns in the resulting tibble is correct", {
  expect_equal(ncol(admission_reqs(167835)), 2)
})

testthat::test_that("number of rows in the resulting tibble is correct", {
  expect_equal(nrow(admission_reqs(167835)), 9)
})