tests/testthat/test-use_dump_check.R

In Public-Health-Scotland/phsopendata: Extract Open Data from opendata.nhs.scot

test_that("returns true as expected", {
  # all are null
  expect_true(
    use_dump_check(list(), NULL)
  )

  # rows > 99999 and all query is NULL
  expect_true(
    use_dump_check(list(), 100000)
  ) %>%
    expect_warning()

  # query entries are not all NULL and rows > 99999
  expect_true(
    use_dump_check(list(q = 4), 100000)
  ) %>%
    expect_warning()

  expect_true(
    use_dump_check(list(q = 4), 100000)
  ) %>%
    expect_warning()
})

test_that("returns false as expected", {
  # rows is NULL and query list is not all NULL
  expect_false(
    use_dump_check(list(fields = "Age"), NULL)
  )

  # rows is under 99999 and query list is not all NULL
  expect_false(
    use_dump_check(list(fields = "Age"), 100)
  )

  # rows is under 99999 and query list is all NULL
  expect_false(
    use_dump_check(list(), 100)
  )
})