only check R files in the list of tests

dark-peak-analytics · Mar 7, 2024 · bf47319 · bf47319
1 parent 81eebc0
commit bf47319
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 1 deletion.
diff --git a/R/test_finder.R b/R/test_finder.R
@@ -116,7 +116,8 @@ find_function_calls_in_folder <- function(test_folder,
   v_test_file_paths <-
     list.files(path = test_folder,
                recursive = TRUE,
-               full.names = TRUE)
+               full.names = TRUE,
+               pattern = "\\.R$")
 
   # find function names in all files in test folder
   l_foo_test_paths <- lapply(X = v_test_file_paths,

diff --git a/tests/testthat/example_project/tests/testthat/fixtures/make-useful-things.R b/tests/testthat/example_project/tests/testthat/fixtures/make-useful-things.R
@@ -0,0 +1,3 @@
+saveRDS(file = test_path("example_project", test_path("fixtures", "useful_thing1.rds")),
+        object = mtcars)
+
diff --git a/tests/testthat/example_project/tests/testthat/fixtures/useful_thing1.rds b/tests/testthat/example_project/tests/testthat/fixtures/useful_thing1.rds
Original file line number	Diff line number	Diff line change
		@@ -0,0 +1,3 @@
		saveRDS(file = test_path("example_project", test_path("fixtures", "useful_thing1.rds")),
		object = mtcars)