tests/testthat/test-init.R

In rscorecard: A Method to Download Department of Education College Scorecard Data

context("sc_init")

## confirm init values ---------------------------

dil <- list("sc_init_list" = TRUE,
            "dfvars" = FALSE,
            "select" = NULL,
            "select_order" = NULL,
            "filter" = NULL,
            "zip" = NULL,
            "year" = "latest")

test_that("Default sccall from sc_init()", {
  expect_equal(sc_init(), dil)
})

## confirm bad inits -----------------------------

test_that("Did not start with sc_init()", {
  message <- "Chain not properly initialized. Be sure to start with sc_init()."

  ## one off
  expect_error(sc_select(), message)
  expect_error(sc_filter(), message)
  expect_error(sc_year(), message)
  expect_error(sc_get(), message)
  expect_error(sc_zip(), message)

  ## otherwise correct chains
  expect_error(sc_filter(unitid == 1000) |>
                 sc_select(unitid), message)
  expect_error(sc_filter(unitid == 1000) |>
                 sc_select(unitid) |>
                 sc_year(2020), message)
  expect_error(sc_filter(unitid == 1000) |>
                 sc_select(unitid) |>
                 sc_year(2020) |>
                 sc_get(), message)

  expect_error(sc_select(unitid) |>
                 sc_filter(unitid == 1000), message)
  expect_error(sc_select(unitid) |>
                 sc_filter(unitid == 1000) |>
                 sc_year(2020), message)
  expect_error(sc_select(unitid) |>
                 sc_filter(unitid == 1000) |>
                 sc_year(2020) |>
                 sc_get(), message)

  ## uninitialized chains with other errors (un-init should take precedence)
  expect_error(sc_filter(x == 1000) |>
                 sc_select(unitid), message)
  expect_error(sc_filter(unitid == 1000) |>
                 sc_select(x) |>
                 sc_year(2020), message)
  expect_error(sc_filter(unitid == 1000) |>
                 sc_select(unitid) |>
                 sc_year(1800) |>
                 sc_get(), message)
  expect_error(sc_filter(unitid = 1000) |>
                 sc_select() |>
                 sc_year(1800) |>
                 sc_get(), message)

})