Mock version name, for timestamp issue

rstudio · Aug 11, 2023 · 3122ab4 · 3122ab4
1 parent 1357fc2
commit 3122ab4
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/R/pin-meta.R b/R/pin-meta.R
@@ -107,6 +107,12 @@ test_api_meta <- function(board) {
   })
 
   testthat::test_that("can update pin metadata", {
+  mock_version_name <-
+    mockery::mock(
+      "20130104T050607Z-xxxxx",
+      "20130204T050607Z-yyyyy"
+    )
+  testthat::local_mocked_bindings(version_name = mock_version_name)
     # RSC requires at least 3 characters
     name <- local_pin(board, 1, title = "xxx-a1", description = "xxx-a2")
     pin_write(board, 1, name, title = "xxx-b1", description = "xxx-b2", force_identical_write = TRUE)