tests/testthat/test-column-types.R

In boxoffice: Downloads Box Office Information for Given Dates

context("column_types")

col_types <- c("character", "character", "numeric",
               "numeric", "numeric", "numeric",
               "numeric", "numeric", "Date")



test_that("column types are correct", {
  expect_true(all(lapply(christmas_mojo,
                         class) == col_types))

  expect_true(all(lapply(boxoffice(dates = as.Date("2017-12-25"),
                                   top_n = 10), class) == col_types))
  expect_true(all(lapply(boxoffice(dates = as.Date("2017-12-25"),
                                   site = "mojo",
                                   top_n = 10), class) == col_types))


  expect_true(all(lapply(boxoffice(dates = christmas), class) == col_types))
  expect_true(all(lapply(boxoffice(dates = christmas,
                                   site = "mojo"), class) == col_types))

  expect_true(all(lapply(boxoffice(dates = christmas,
                                   top_n = 10), class) == col_types))
  expect_true(all(lapply(boxoffice(dates = christmas, site = "mojo",
                                   top_n = 10), class) == col_types))
})