Oops it was used

Author: hadley

R/snapshot-file.R

@@ -160,7 +160,7 @@ expect_snapshot_file <- function(
   if (in_check_reporter()) {
     hint <- ""
   } else {
-    hint <- snapshot_review_hint(file, is_text = is_text)
+    hint <- snapshot_review_hint(file, name, is_text = is_text)
   }
 
   if (!equal) {
@@ -209,6 +209,7 @@ announce_snapshot_file <- function(path, name = basename(path)) {
 
 snapshot_review_hint <- function(
   test,
+  name,
   is_text = FALSE,
   reset_output = TRUE
 ) {
@@ -219,11 +220,11 @@ snapshot_review_hint <- function(
   c(
     if (is_text) {
       cli::format_inline(
-        "* Run {.run testthat::snapshot_accept('{test}/')} to accept the change."
+        "* Run {.run testthat::snapshot_accept('{test}/{name}')} to accept the change."
       )
     },
     cli::format_inline(
-      "* Run {.run testthat::snapshot_review('{test}/')} to review the change."
+      "* Run {.run testthat::snapshot_review('{test}/{name}')} to review the change."
     )
   )
 }

tests/testthat/_snaps/snapshot-file.md

@@ -25,17 +25,18 @@
 # generates informative hint
 
     Code
-      base::writeLines(snapshot_review_hint("lala", reset_output = FALSE))
+      base::writeLines(snapshot_review_hint("lala", "foo.R", reset_output = FALSE))
     Output
-      * Run `testthat::snapshot_review('lala/')` to review the change.
+      * Run `testthat::snapshot_review('lala/foo.R')` to review the change.
 
 ---
 
     Code
-      base::writeLines(snapshot_review_hint("lala", is_text = TRUE, reset_output = FALSE))
+      base::writeLines(snapshot_review_hint("lala", "foo.R", is_text = TRUE,
+        reset_output = FALSE))
     Output
-      * Run `testthat::snapshot_accept('lala/')` to accept the change.
-      * Run `testthat::snapshot_review('lala/')` to review the change.
+      * Run `testthat::snapshot_accept('lala/foo.R')` to accept the change.
+      * Run `testthat::snapshot_review('lala/foo.R')` to review the change.
 
 # expect_snapshot_file validates its inputs
 

tests/testthat/test-snapshot-file.R

@@ -165,11 +165,13 @@ test_that("split_path handles edge cases", {
 test_that("generates informative hint", {
   expect_snapshot(base::writeLines(snapshot_review_hint(
     "lala",
+    "foo.R",
     reset_output = FALSE
   )))
 
   expect_snapshot(base::writeLines(snapshot_review_hint(
     "lala",
+    "foo.R",
     is_text = TRUE,
     reset_output = FALSE
   )))