bioc tests pass locally (#1077)

... even when the bioc version installed for the current R version is not latest.
rstudio · May 23, 2024 · 4eef612 · 4eef612
1 parent 4c30b1c
commit 4eef612
Showing 1 changed file with 4 additions and 6 deletions.
diff --git a/tests/testthat/test-bundlePackageRenv.R b/tests/testthat/test-bundlePackageRenv.R
@@ -42,17 +42,15 @@ test_that("works with BioC packages", {
   app <- local_temp_app(list("index.R" = c(
     "library(Biobase)"
   )))
-  withr::local_options(repos = c(
-    CRAN = "https://cran.rstudio.com",
-    BioC = "https://bioconductor.org/packages/release/bioc"
-  ))
+  biocRepos <- BiocManager::repositories()
+  withr::local_options(repos = biocRepos)
   expect_no_condition(
-    deps <- snapshotRenvDependencies(app),
+    { deps <- snapshotRenvDependencies(app) },
     class = "rsconnect_biocRepos"
   )
   Biobase <- deps[deps$Package == "Biobase", ]
   expect_equal(Biobase$Source, "Bioconductor")
-  expect_equal(Biobase$Repository, "https://bioconductor.org/packages/release/bioc")
+  expect_equal(Biobase$Repository, biocRepos[["BioCsoft"]])
 
   withr::local_options(repos = c(
     CRAN = "https://cran.rstudio.com"