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 Sept. 28, 2023, 5:22 p.m.