tests/testthat/test-removeFile.R

In INWTlab/rsync: API to use rsync

context("removeFile")

testthat::test_that("Removing files", {

  con <- setupTestEnvironment()

  #rsyncD
  invisible(removeAllFiles(con))
  testthat::expect_true(nrow(listFiles(con)) == 0)
  invisible(sendFile(con, fileName = 'y.Rdata'))
  testthat::expect_true(nrow(listFiles(con)) == 1)
  invisible(removeFile(con, fileName = 'y.Rdata'))
  testthat::expect_true(nrow(listFiles(con)) == 0)

})