tests/testthat/test-ojo_eviction_cases.R

In openjusticeok/ojodb: Analyze Data from the Open Justice Oklahoma Database

test_that("ojo_eviction_cases works", {
  skip_on_runiverse()

  testthat::expect_no_error({
    ojo_eviction_cases()
  })
})

test_that("ojo_eviction_cases includes additional case variables if specified", {
  skip_on_runiverse()
  data <- ojo_eviction_cases(more_case_variables = "judge")
  expect_true("judge" %in% colnames(data))
})

test_that("ojo_eviction_cases includes additional issue variables if specified", {
  skip_on_runiverse()
  data <- ojo_eviction_cases(more_issue_variables = "disposition_date")
  expect_true("disposition_date" %in% colnames(data))
})