tests/testthat/test-searchdir.R

test_that("filters files from string", {
  expect_equal(searchdir(system.file("extdata", package = "scriptsearch"), "test"), c("test1.txt", "test2.txt"))
  expect_equal(searchdir(system.file("extdata", package = "scriptsearch"), "1"),"test1.txt")
  expect_equal(searchdir(system.file("extdata", package = "scriptsearch"), "3"), character(0))
})
carlos-r-git/scriptsearch documentation built on Sept. 1, 2020, 6:38 p.m.