Use force_identical_write to update metadata in test

rstudio · Aug 11, 2023 · 1357fc2 · 1357fc2
1 parent ff30f59
commit 1357fc2
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/pin-meta.R b/R/pin-meta.R
@@ -109,8 +109,7 @@ test_api_meta <- function(board) {
   testthat::test_that("can update pin metadata", {
     # RSC requires at least 3 characters
     name <- local_pin(board, 1, title = "xxx-a1", description = "xxx-a2")
-    # change content so hash changes
-    pin_write(board, 2, name, title = "xxx-b1", description = "xxx-b2")
+    pin_write(board, 1, name, title = "xxx-b1", description = "xxx-b2", force_identical_write = TRUE)
 
     meta <- pin_meta(board, name)
     testthat::expect_equal(meta$title, "xxx-b1")