tests/testthat/test-github-packages.R

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

skip_if_not_installed("httptest2")
# This one is skipped when offline for two reasons:
# 1. Mocked responses form too long paths even if fully compressed
# 2. turtletopia/.github repository is treated as a hidden directory, an it's not allowed there
skip_if_offline()
skip_if(over_gh_limit(), "Github rate limit not sufficient")
wood_clear_cache()

# SETUP ----
turtletopia_packages <- wood_github_packages("turtletopia")

# TESTS ----
test_packages(turtletopia_packages)
test_cache({ wood_github_packages(user = "turtletopia") }, turtletopia_packages)
test_param_gh_user(wood_github_packages(user = "turtletopia"))
test_param_include_forks(wood_github_packages(user = "turtletopia"))

test_that("several packages make the list", {
  expect_subset(c("versionsort", "gglgbtq", "woodendesc"), turtletopia_packages)
})

test_that("non-packages are omitted", {
  expect_no_match(turtletopia_packages, "^universe$")
})

test_that("if user doesn't exist, an exception is raised", {
  expect_error(
    wood_github_packages("TheUserThatDoesNotExist"),
    "Can't find user `TheUserThatDoesNotExist` on GitHub.",
    fixed = TRUE
  )
})