Mask current rextendr version in snapshot tests

Author: Ilia-Kosenkov

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: rextendr
 Title: Call Rust Code from R using the 'extendr' Crate
 Version: 0.3.1.9001
-Authors@R: 
+Authors@R:
     c(person(given = "Claus O.",
              family = "Wilke",
              role = "aut",

tests/testthat/_snaps/use_cran_defaults.md

@@ -4,7 +4,7 @@
       use_extendr()
     Message
       i First time using rextendr. Upgrading automatically...
-      i Setting `Config/rextendr/version` to "0.3.1.9001" in the 'DESCRIPTION' file.
+      i Setting `Config/rextendr/version` to "*.*.*" in the 'DESCRIPTION' file.
       i Setting `SystemRequirements` to "Cargo (Rust's package manager), rustc" in the 'DESCRIPTION' file.
       v Creating 'src/rust/src'.
       v Writing 'src/entrypoint.c'

tests/testthat/_snaps/use_extendr.md

@@ -4,7 +4,7 @@
       use_extendr()
     Message
       i First time using rextendr. Upgrading automatically...
-      i Setting `Config/rextendr/version` to "0.3.1.9001" in the 'DESCRIPTION' file.
+      i Setting `Config/rextendr/version` to "*.*.*" in the 'DESCRIPTION' file.
       i Setting `SystemRequirements` to "Cargo (Rust's package manager), rustc" in the 'DESCRIPTION' file.
       v Creating 'src/rust/src'.
       v Writing 'src/entrypoint.c'

tests/testthat/helper.R

@@ -112,3 +112,16 @@ skip_if_opted_out_of_dev_tests <- function() {
     testthat::skip("Dev extendr tests disabled")
   }
 }
+
+#' Mask any version in snapshot files
+#' @param snapshot_lines Character vector, lines of the snapshot file
+#' @example
+#' expect_snapshot(some_operation(), transform = mask_any_version)
+#' @noRd
+mask_any_version <- function(snapshot_lines) {
+  stringi::stri_replace_all_regex(
+    snapshot_lines,
+    "\\d+\\.\\d+\\.\\d+(?:\\.\\d+)?",
+    "*.*.*"
+  )
+}

tests/testthat/test-use_cran_defaults.R

@@ -4,7 +4,7 @@ test_that("use_cran_defaults() modifies and creates files correctly", {
   path <- local_package("testpkg")
   # capture setup messages
   withr::local_options(usethis.quiet = FALSE)
-  expect_snapshot(use_extendr())
+  expect_snapshot(use_extendr(), transform = mask_any_version)
   expect_snapshot(use_cran_defaults())
 
   expect_snapshot(cat_file("src", "Makevars"))
@@ -26,14 +26,6 @@ test_that("use_cran_defaults() quiet if quiet=TRUE", {
 
 
 test_that("vendor_pkgs() vendors dependencies", {
-  mask_version_strings <- function(snapshot_lines) {
-    stringi::stri_replace_all_regex(
-      snapshot_lines,
-      "\\d+\\.\\d+\\.\\d+",
-      "*.*.*"
-    )
-  }
-
   skip_if_not_installed("usethis")
 
   path <- local_package("testpkg")
@@ -44,6 +36,6 @@ test_that("vendor_pkgs() vendors dependencies", {
 
   package_versions <- vendor_pkgs(path, quiet = TRUE)
   expect_snapshot(cat_file("src", "rust", "vendor-config.toml"))
-  expect_snapshot(package_versions, transform = mask_version_strings)
+  expect_snapshot(package_versions, transform = mask_any_version)
   expect_true(file.exists(file.path("src", "rust", "vendor.tar.xz")))
 })

tests/testthat/test-use_extendr.R

@@ -4,7 +4,7 @@ test_that("use_extendr() sets up extendr files correctly", {
   path <- local_package("testpkg")
   # capture setup messages
   withr::local_options(usethis.quiet = FALSE)
-  expect_snapshot(use_extendr())
+  expect_snapshot(use_extendr(), transform = mask_any_version)
 
   # DESCRITION file
   version_in_desc <- stringi::stri_trim_both(desc::desc_get("Config/rextendr/version", path)[[1]])