tests/testthat/test-sendAllFiles.R

context("sendAllFiles")

test_that("send all files", {
  con <- setupTestEnvironment()

  invisible(removeAllFiles(con))

  sendAllFiles(con)
  testthat::expect_true(nrow(listFiles(con)) == 6)
})
INWTlab/rsync documentation built on Oct. 25, 2024, 3:50 a.m.