tests/testthat/test-errors-silent.R

In jacobkap/boxoffice: Downloads Box Office Information for Given Dates

context("errors-silent")


test_that("returns silent", {
  expect_silent(boxoffice(dates = as.Date("2017-12-25")))
  expect_silent(boxoffice(dates = as.Date("2017-12-25"), top_n = 10))
  expect_silent(boxoffice(dates = christmas))
  expect_silent(boxoffice(dates = christmas, top_n = 10))
})

test_that("impossible date returns message", {
  expect_message(boxoffice(dates = as.Date("1400-12-25")))
  expect_message(boxoffice(dates = as.Date("1400-12-25"), top_n = 10))
  expect_message(boxoffice(dates = as.Date(c("2017-12-25", "1800-12-25"))))
  expect_message(boxoffice(dates = as.Date(c("2017-12-25", "1800-12-25")),
                           top_n = 10))
  expect_message(boxoffice(dates = as.Date(c("1400-12-25", "1800-12-25")),
                           top_n = 10))
  expect_message(boxoffice(dates = christmas_impossible_dates,
                           top_n = 10))
})

test_that("wrong inputs cause error - site", {
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = "moj"))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = ""))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = NULL))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = NA))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = 1))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = 1:10))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = "1:10"))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = boxoffice()))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), site = boxoffice))
})

test_that("wrong inputs cause error - top_n", {
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = c("string", 1)))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = 0))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = 1:10))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = -1))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = -1:5))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = c(5, 10)))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = "string"))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = boxoffice()))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = boxoffice))
  expect_error(boxoffice(dates = as.Date("2017-12-25"), top_n = NA))
})


test_that("wrong inputs cause error - dates", {
  expect_error(boxoffice(dates = c("string", 1)))
  expect_error(boxoffice(dates = boxoffice()))
  expect_error(boxoffice(dates = boxoffice))
  expect_error(boxoffice(dates = NULL))
  expect_error(boxoffice(dates = NA))
  expect_error(boxoffice(dates = 0))
  expect_error(boxoffice(dates = "2012-12-25"))
  expect_error(boxoffice(dates = c(10, as.Date(c("2012-01-01")))))
  expect_error(boxoffice(dates = as.Date(Sys.Date())))
  expect_error(boxoffice(dates = as.Date("2025-01-01")))
  expect_error(boxoffice(dates = Sys.Date()))
  expect_error(boxoffice(dates = as.Date(c("2012-01-01",
                                           "2013-01-01", "2025-12-25"))))
  expect_error(boxoffice(dates = as.Date(c("2012-01-01",
                                           "2013-01-01", "2025-1"))))
  expect_error(boxoffice(dates = as.Date("2025-12-25")))
  expect_error(boxoffice(dates = as.Date("2025-12-25"), top_n = 10))

})