Skip a test on Windows, on older R

r-lib · Mar 17, 2024 · aef840b · aef840b
1 parent 1460100
commit aef840b
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/tests/testthat/test-install-github.R b/tests/testthat/test-install-github.R
@@ -192,6 +192,9 @@ test_that("github_remote with deleted branch", {
 
 test_that("github_pull", {
 
+  if (getRversions() < "4.0.0" && .Platform$OS.type == "windows") {
+    skip("Does not work on older R on Windows") # why?
+  }
   skip_on_cran()
   skip_if_offline()
   skip_if_over_rate_limit()
@@ -202,12 +205,12 @@ test_that("github_pull", {
   on.exit(unlink(lib, recursive = TRUE), add = TRUE)
   dir.create(lib)
 
-  install_github(
+  suppressWarnings(install_github(
     "r-lib/desc",
     ref = github_pull(64),
     lib = lib,
     quiet = TRUE
-  )
+  ))
 
   expect_silent(packageDescription("desc", lib.loc = lib))
   expect_equal(