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 April 3, 2022, 10:11 a.m.