tests/testthat/test-runiverse-dependencies.R

In woodendesc: Find Packages and Their Dependencies in Any 'R' Repository

skip_if_not_installed("vcr")
wood_clear_cache()

# SETUP ----
vcr::use_cassette("ggplot2-deps-tt", {
  ggplot2_deps <- wood_runiverse_dependencies("ggplot2", "tidyverse")
})

# TESTS ----
test_dependencies(ggplot2_deps)
test_cache(wood_runiverse_dependencies, ggplot2_deps, "ggplot2", "tidyverse")
test_param_package(wood_runiverse_dependencies, universe = "tidyverse")
test_param_runiverse(wood_runiverse_dependencies, package = "ggplot2")

vcr::use_cassette("fakepackage-runiverse-deps", {
  test_that("raises an exception if package not available", {
    expect_error(
      wood_runiverse_dependencies("fakepackage", "turtletopia"),
      "Can't find package `fakepackage` in universe `turtletopia`.",
      fixed = TRUE
    )
  })
})