Work around failing tests on R 3.6.x Windows

gaborcsardi · gaborcsardi · commit 1699daa2c861 · 2024-03-17T09:38:30.000+01:00
diff --git a/tests/testthat/test-install-cran.R b/tests/testthat/test-install-cran.R
@@ -13,7 +13,11 @@ test_that("", {
   on.exit(unlink(lib, recursive = TRUE), add = TRUE)
   dir.create(lib)
 
-  install_cran("pkgconfig", lib = lib, repos = repos, force = TRUE, quiet = TRUE)
+  # we'll get warnings when CRAN moves binary packages to the
+  # cran-archive server.
+  suppressWarnings(
+    install_cran("pkgconfig", lib = lib, repos = repos, force = TRUE, quiet = TRUE)
+  )
 
   expect_silent(packageDescription("pkgconfig", lib.loc = lib))
 })
diff --git a/tests/testthat/test-install-svn.R b/tests/testthat/test-install-svn.R
@@ -25,6 +25,7 @@ test_that("install_svn subdir", {
 test_that("remote_download.svn_remote error", {
 
   skip_on_cran()
+  if (Sys.which("svn") == "") skip("Subversion not installed")
 
   x <- list(url = "http://foo.bar.com")
 
diff --git a/tests/testthat/test-script.R b/tests/testthat/test-script.R
@@ -54,7 +54,7 @@ test_that("install-github.R script does not load any package", {
     },
     args = list(script = script, lib = lib),
     cmdargs = c("--vanilla", "--slave", "--no-save", "--no-restore"),
-    timeout = 20
+    timeout = 60
   )
 
   expect_equal(pkgs[[1]], pkgs[[2]])

Original file line number	Diff line number	Diff line change
`@@ -54,7 +54,7 @@ test_that("install-github.R script does not load any package", {`
`54`	`54`	`},`
`55`	`55`	`args = list(script = script, lib = lib),`
`56`	`56`	`cmdargs = c("--vanilla", "--slave", "--no-save", "--no-restore"),`
`57`		`- timeout = 20`
	`57`	`+ timeout = 60`
`58`	`58`	`)`
`59`	`59`
`60`	`60`	`expect_equal(pkgs[[1]], pkgs[[2]])`