file_paths <- list.files(path = system.file("tinytest",
package = "fritools"),
pattern = ".*\\.R", full.names = TRUE)
res <- grep_file(path = file_paths, pattern = "forSureNotThere",
a = 3, b = 2, ignore.case = TRUE)
tinytest::expect_true(all(res == FALSE))
Run the code above in your browser using DataLab