tests/testthat/test-github-tags.R

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

skip_if_not_installed("vcr")
wood_clear_cache()

# SETUP ----
vcr::use_cassette("gglgbtq-tags", {
  gglgbtq_tags <- wood_github_tags("gglgbtq", "turtletopia")
})

# TESTS ----
test_tags(gglgbtq_tags)
test_cache(wood_github_tags, gglgbtq_tags, "gglgbtq", "turtletopia")
test_param_package(wood_github_tags, user = "turtletopia")
test_param_gh_user(wood_github_tags, package = "gglgbtq")

vcr::use_cassette("fakepackage-gh-tags", {
  test_that("raises an exception if package not available", {
    expect_error(
      wood_github_latest("fakepackage", "turtletopia"),
      "Can't find repository `turtletopia/fakepackage` on Github.",
      fixed = TRUE
    )
  })
})