Add tests for snapshots with different extensions.

Author: mcol

tests/testthat/_snaps/snapshot-manage.md

@@ -38,6 +38,23 @@
       Updating snapshots:
       * test/a.txt
 
+---
+
+    Code
+      snapshot_accept("a", path = path)
+    Message
+      Updating snapshots:
+      * a.md
+
+---
+
+    Code
+      snapshot_accept("test/", path = path)
+    Message
+      Updating snapshots:
+      * test/a.md
+      * test/b.txt
+
 # can work with variants
 
     Code

tests/testthat/test-snapshot-manage.R

@@ -21,6 +21,15 @@ test_that("can accept specific files", {
   expect_snapshot(snapshot_accept("test/", path = path))
   expect_equal(dir(file.path(path, "_snaps"), recursive = TRUE), "test/a.txt")
 
+  # snapshot files with different extensions
+  path <- local_snapshot_dir(c("a.md", "a.new.md", "b.txt", "b.new.txt"))
+  expect_snapshot(snapshot_accept("a", path = path))
+  expect_equal(dir(file.path(path, "_snaps")), c("a.md", "b.new.txt", "b.txt"))
+
+  path <- local_snapshot_dir(c("test/a.md", "test/a.new.md",
+                               "test/b.txt", "test/b.new.txt"))
+  expect_snapshot(snapshot_accept("test/", path = path))
+  expect_equal(dir(file.path(path, "_snaps"), recursive = TRUE), c("test/a.md", "test/b.txt"))
 })
 
 test_that("can work with variants", {