tests/testthat/test_get_film_metadata.R

In gaalcaras/socscrap: Webscraping for social scientists

library(socscrap)

url <- "https://www.allocine.fr/film/fichefilm_gen_cfilm=25802.html"

expected <- tibble::tibble(
  title = "Star Wars : Episode V - L'Empire contre-attaque",
  date = lubridate::ymd("1980-08-20"),
  duration = as.double(124),
  genre = "Aventure",
  nationality = "américain",
  direction = "De Irvin Kershner",
  actors = "Avec Mark Hamill, Harrison Ford, Carrie Fisher"
)

nas <- tibble::tibble(
  title = NA_character_,
  date = lubridate::NA_Date_,
  duration = NA_real_,
  genre = NA_character_,
  nationality = NA_character_,
  direction = NA_character_,
  actors = NA_character_
)

test_that("using a valid url works fine", {
  expect_equal(get_film_metadata(url), expected)
})

test_that("using an invalid url returns NAs and warns the user", {
  expect_warning(out <- get_film_metadata("https://www.allocine.fr/film/fichefilm-25802/casting/"),
                 'the provided URL does not match a proper film page on the allocine website. Returning NAs.')
  expect_equal(out, nas)
})