diff --git a/R/pin-meta.R b/R/pin-meta.R index 2c4e7d2f..93ed8202 100644 --- 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")