added tests

gesistsa · Mar 2, 2023 · a47fef5 · a47fef5
1 parent d61d2ee
commit a47fef5
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/tests/testthat/test_expost_rang.R b/tests/testthat/test_expost_rang.R
@@ -138,3 +138,21 @@ test_that("prevent infinite loop, #81", {
     graph$ranglets[[1]]$original$y_pkgref <- "bioc::S4Vectors"
     expect_error(.generate_installation_order(graph), "cran::LDAvis")
 })
+
+test_that("renv export", {
+  temp_dir <- tempdir()
+  graph <- readRDS("../testdata/rang_ok.RDS")
+  export_renv(graph, path = temp_dir)
+  x <- readLines(file.path(temp_dir,"renv.lock"))
+  expect_true(any(grepl("LDAvis",x)))
+  expect_true(any(grepl("proxy",x)))
+  expect_true(any(grepl("RJSONIO",x)))
+})
+
+test_that("empty renv export", {
+  graph <- readRDS("../testdata/rang_ok.RDS")
+  graph$ranglets <- list()
+  expect_warning(x <- export_rang(graph, path = tempfile()))
+  expect_equal(x, NULL)
+})
+