tests/testthat/test-adm2021.R

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

library(testthat)
library(dplyr)

#adm2021 tests

testthat::test_that("number of columns in Admissions Fall 2020 df is correct", {
  expect_equal(ncol(adm2021), 39)
})


test_that("number of rows in Admissions Fall 2020 df is correct", {
  expect_equal(nrow(adm2021), 1981)
})


test_that("Number of unique institution IDs is 1989", {
  adm2021_2 <- adm2021 %>%
    dplyr::group_by(INSTITUTION_ID) %>%
    dplyr::summarise(n = dplyr::n())
  expect_equal(nrow(adm2021_2), 1981)
})


test_that("number of full time enrollment combined with part time enrollment equals total enrollment in Admissions Fall 2020 df is correct", {
  adm_2021_enrl <- adm2021 %>%
    na.omit(FT_enroll) %>%
    na.omit(PT_enroll) %>%
    na.omit(ENRLT)
  expect_equal(sum(adm_2021_enrl$FT_enroll + adm_2021_enrl$PT_enroll), sum(adm_2021_enrl$ENRLT))
})

test_that("the possible range of Reading-Writing SAT scores 25th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$RW_SAT_25, na.rm = TRUE) >= 200 & max(adm2021$RW_SAT_25, na.rm = TRUE) <= 800)
})

test_that("the possible range of Reading-Writing SAT scores 75th percentilein Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$RW_SAT_75, na.rm = TRUE) >= 200 & max(adm2021$RW_SAT_75, na.rm = TRUE) <= 800)
})

test_that("the possible range of Math SAT scores 25th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$MTH_SAT_25, na.rm = TRUE) >= 200 & max(adm2021$MTH_SAT_25, na.rm = TRUE) <= 800)
})

test_that("the possible range of Math SAT scores 75th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$MTH_SAT_75, na.rm = TRUE) >= 200 & max(adm2021$MTH_SAT_75, na.rm = TRUE) <= 800)
})

test_that("the possible range of ACT composite scores 25th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$ACT_25, na.rm = TRUE) >= 1 & max(adm2021$ACT_25, na.rm = TRUE) <= 36)
})

test_that("the possible range of ACT composite scores 75th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$ACT_75, na.rm = TRUE) >= 1 & max(adm2021$ACT_75, na.rm = TRUE) <= 36)
})

test_that("the possible range of ACT English scores 25th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$eng_ACT_25, na.rm = TRUE) >= 1 & max(adm2021$eng_ACT_25, na.rm = TRUE) <= 36)
})

test_that("the possible range of ACT English scores 75th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$eng_ACT_75, na.rm = TRUE) >= 1 & max(adm2021$eng_ACT_75, na.rm = TRUE) <= 36)
})

test_that("the possible range of ACT Math scores 25th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$MTH_ACT_25, na.rm = TRUE) >= 1 & max(adm2021$MTH_ACT_25, na.rm = TRUE) <= 36)
})

test_that("the possible range of ACT Math scores 75th percentile in Admissions Fall 2020 df is correct", {
  expect_true(min(adm2021$MTH_ACT_75, na.rm = TRUE) >= 1 & max(adm2021$MTH_ACT_75, na.rm = TRUE) <= 36)
})