tests/testthat/test-movie-releases-boxoffice.R

In jemus42/tRakt: Get Data from 'trakt.tv'

test_that("movies_releases works", {
  skip_on_cran()

  movie <- "deadpool-2016"

  mov <- movies_releases(id = movie)
  mov_de <- movies_releases(id = movie, country = "de")
  mov_multi <- movies_releases(id = c(movie, "inception-2010"), country = "de")

  expect_is(mov, "tbl")
  expect_gte(nrow(mov), nrow(mov_de))
  expect_is(mov_multi, "tbl")
  expect_length(mov_multi, length(mov))
})

test_that("movies_boxoffice works", {
  skip_on_cran()

  movies_boxoffice() |>
    expect_is("tbl") |>
    expect_length(7) |>
    nrow() |>
    expect_gt(3)
})