From b239e372a80fcefc8feb1ed8f58cd0efd7c8bc3d Mon Sep 17 00:00:00 2001
From: Alasdair Sykes <alasdair.sykes@gmail.com>
Date: Wed, 15 May 2024 13:04:52 +0100
Subject: [PATCH] Fix #1579

Adjusted snapshot_meta helper function to adjust check for presence of file extension in `files` argument. Fixes issue where periods in file name are mistaken for signifying file extension (#1579).
---
 R/snapshot-manage.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/snapshot-manage.R b/R/snapshot-manage.R
index afd1cbc29..834212b3b 100644
--- a/R/snapshot-manage.R
+++ b/R/snapshot-manage.R
@@ -161,7 +161,7 @@ snapshot_meta <- function(files = NULL, path = "tests/testthat") {
     files <- files[!is_dir]
 
     dirs <- substr(dirs, 1, nchar(dirs) - 1)
-    files <- ifelse(tools::file_ext(files) == "", paste0(files, ".md"), files)
+    files <- ifelse(grepl("\\.md$", files), files, paste0(files, ".md"))
 
     out <- out[out$name %in% files | out$test %in% dirs, , drop = FALSE]
   }