tests/testthat/test-dimmensions.R

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

context("dimmensions")


test_that("returns proper number of rows and columns", {
  skip_on_cran()
  expect_equal(ncol(christmas_num), 9)
  expect_equal(dim(boxoffice(dates = as.Date("2017-12-25"),
                             top_n = 10)), c(10, 9))
  expect_equal(dim(boxoffice(dates = christmas, top_n = 10)), c(20, 9))

  expect_equal(ncol(christmas_impossible), 9)
  expect_equal(dim(boxoffice(dates = as.Date(c("2012-12-25", "2013-12-25")),
                             top_n = 10)), c(20, 9))
 })