tests/testthat/test-tr_get_files.R

In travis-m-blimkie/tRavis: tRavis: an R package by Travis Blimkie

test_that("we can list files properly", {

  retrieved_files <- tr_get_files(
    directory = system.file("extdata", package = "tRavis"),
    pattern = "^test",
    remove_string = "test_",
    date = TRUE
  )

  expect_length(retrieved_files, 2)
  expect_named(retrieved_files, c("file1", "file2"))
})