Don't automatically add .md in local_snapshot_dir()

Author: hadley

R/snapshot.R

@@ -418,7 +418,7 @@ local_snapshot_dir <- function(snap_names, .env = parent.frame()) {
     dir.create(file.path(path, "_snaps", dir), recursive = TRUE, showWarnings = FALSE)
   }
 
-  snap_paths <- file.path(path, "_snaps", paste0(snap_names, ".md"))
+  snap_paths <- file.path(path, "_snaps", snap_names)
   lapply(snap_paths, brio::write_lines, text = "")
 
   path

tests/testthat/test-snapshot-manage.R

@@ -1,5 +1,5 @@
 test_that("informs about files being accepted", {
-  path <- local_snapshot_dir(c("a", "a.new", "b", "b.new"))
+  path <- local_snapshot_dir(c("a.md", "a.new.md", "b.md", "b.new.md"))
 
   expect_snapshot(snapshot_accept(path = path))
   expect_equal(dir(file.path(path, "_snaps")), c("a.md", "b.md"))
@@ -8,19 +8,19 @@ test_that("informs about files being accepted", {
 })
 
 test_that("can accept specific files", {
-  path <- local_snapshot_dir(c("a", "a.new", "b", "b.new"))
+  path <- local_snapshot_dir(c("a.md", "a.new.md", "b.md", "b.new.md"))
   expect_snapshot(snapshot_accept("a", path = path))
   expect_equal(dir(file.path(path, "_snaps")), c("a.md", "b.md", "b.new.md"))
 })
 
 test_that("can work with variants", {
   # Can accept all
-  path <- local_snapshot_dir(c("foo/a", "foo/a.new"))
+  path <- local_snapshot_dir(c("foo/a.md", "foo/a.new.md"))
   expect_snapshot(snapshot_accept(path = path))
   expect_equal(dir(file.path(path, "_snaps", "foo")), "a.md")
 
   # Can accept specified
-  path <- local_snapshot_dir(c("foo/a", "foo/a.new"))
+  path <- local_snapshot_dir(c("foo/a.md", "foo/a.new.md"))
   expect_snapshot(snapshot_accept("foo/a", path = path))
   expect_equal(dir(file.path(path, "_snaps", "foo")), "a.md")
 })