add simple tests for renv2nix()

ropensci · Oct 13, 2024 · bd52c7d · bd52c7d
1 parent d75319d
commit bd52c7d
Showing 1 changed file with 60 additions and 0 deletions.
diff --git a/tests/testthat/test-renv_helpers.R b/tests/testthat/test-renv_helpers.R
@@ -43,6 +43,66 @@ testthat::test_that("Testing `renv_remote_pkg()`", {
     testthat::expect_equal(renv_remote_pkg(synthetic_renv_lock_example$gitlabpkg), expected_git_pkg$gitlabpkg)
 })
 
+testthat::test_that("Testing `renv2nix()`", {
+    synthetic_renv_lock_example <- list(
+        R = list(Version = "4.4.1"),
+        Packages = list(
+            MASS = list(
+                Package = "MASS",
+                Version = "7.3-56",
+                Source = "Repository",
+                Repository = "CRAN",
+                Hash = "af0e1955cb80bb36b7988cc657db261e",
+                Requirements = c()
+            ),
+            R6 = list(
+                Package = "R6",
+                Version = "2.5.1",
+                Source = "Repository",
+                Repository = "RSPM",
+                Hash = "470851b6d5d0ac559e9d01bb352b4021",
+                Requirements = c()
+            ),
+            githubpkg = list(
+                Package = "githubpkg",
+                Source = "GitHub",
+                RemoteType = "github",
+                RemoteUser = "user",
+                RemoteRepo = "repo",
+                RemoteSha = "yki8snny7wgpjolz5cq0bwxjshxdd0xv0mcyygoz",
+                RemoteHost = "api.github.com"
+            ),
+            gitlabpkg = list(
+                Package = "gitlabpkg",
+                Source = "GitLab",
+                RemoteType = "gitlab",
+                RemoteUser = "user",
+                RemoteRepo = "repo",
+                RemoteSha = "45p9megdp0i5230rtw1lisy6rquc466zb9yxn7eh",
+                RemoteHost = "gitlab.com"
+            )
+        )
+    )
+    tmpf <- tempfile()
+    jsonlite::write_json(synthetic_renv_lock_example, tmpf, auto_unbox = TRUE)
+    test_call <- call(
+        "rix", r_ver = "4.4.1", r_pkgs = c("MASS", "R6"), git_pkgs = list(
+            githubpkg = list(
+                package_name = "githubpkg",
+                repo_url = "https://github.com/user/repo",
+                commit = "yki8snny7wgpjolz5cq0bwxjshxdd0xv0mcyygoz"
+            ),
+            gitlabpkg = list(
+                package_name = "gitlabpkg",
+                repo_url = "https://gitlab.com/user/repo",
+                commit = "45p9megdp0i5230rtw1lisy6rquc466zb9yxn7eh"
+            )
+        )
+    )
+    testthat::expect_equal(test_call, renv2nix(tmpf, return_rix_call = TRUE))
+    unlink(tmpf)
+})
+
 testthat::test_that("Testing `renv_lock_r_ver()`", {
     tmpf <- tempfile()
     synthetic_renv_lock_example <- jsonlite::write_json(list(R = list(Version = "4.4.1")), tmpf, auto_unbox = TRUE)