skip GH tests if rate limit insufficient

turtletopia · Apr 10, 2024 · fcb0f66 · fcb0f66
1 parent e6e7eb9
commit fcb0f66
Show file tree

Hide file tree

Showing 6 changed files with 12 additions and 0 deletions.
diff --git a/tests/testthat/setup-limits.R b/tests/testthat/setup-limits.R
@@ -0,0 +1,7 @@
+over_gh_limit <- function(num_necessary = 1) {
+  limit <- httr2::request("https://api.github.com") |>
+    httr2::req_url_path_append("rate_limit") |>
+    httr2::req_perform() |>
+    httr2::resp_body_json()
+  limit$resources$core$remaining < num_necessary
+}
diff --git a/tests/testthat/test-github-dependencies.R b/tests/testthat/test-github-dependencies.R
@@ -1,4 +1,5 @@
 skip_if_not_installed("httptest2")
+skip_if(over_gh_limit(), "Github rate limit not sufficient")
 wood_clear_cache()
 
 # SETUP ----

diff --git a/tests/testthat/test-github-latest.R b/tests/testthat/test-github-latest.R
@@ -1,4 +1,5 @@
 skip_if_not_installed("httptest2")
+skip_if(over_gh_limit(), "Github rate limit not sufficient")
 wood_clear_cache()
 
 # SETUP ----

diff --git a/tests/testthat/test-github-packages.R b/tests/testthat/test-github-packages.R
@@ -3,6 +3,7 @@ skip_if_not_installed("httptest2")
 # 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 ----

diff --git a/tests/testthat/test-github-tags.R b/tests/testthat/test-github-tags.R
@@ -1,4 +1,5 @@
 skip_if_not_installed("httptest2")
+skip_if(over_gh_limit(), "Github rate limit not sufficient")
 wood_clear_cache()
 
 # SETUP ----

diff --git a/tests/testthat/test-github-versions.R b/tests/testthat/test-github-versions.R
@@ -1,4 +1,5 @@
 skip_if_not_installed("httptest2")
+skip_if(over_gh_limit(), "Github rate limit not sufficient")
 wood_clear_cache()
 
 # SETUP ----