testthat::test_that("validate identical entries", {

  con <- setupTestEnvironment()
  existingTempDirectories <- list.files(tempdir(), pattern = "[[:alpha:]]{8}")

  sendFile(con, fileName = 'x.Rdata')
  testthat::expect_true(nrow(listFiles(con)) == 1)
    validateFile(con, fileName = 'x.Rdata')))

  con1 <- con
  con1$src <- paste0(tempdir(), "/")
  x <- 1234
  sendObject(con1, x)
    validateFile(con, fileName = "x.Rdata"),
    "Src and dest file are not identical!"

  # This test needs at least some documentation. We encountered an issue with already existing
  # directoris when running dir.create(db1$src) in validateFile. So, we are calling unlink in the
  # exit code of validateFile. To ensure that the directory has been removed, we would usually call
  # dir.exists but we don't know the path name as the directory was created inside of validateFile.
  # So, we store all the directories inside of tempdir before we call validateFile and do the same
  # at the end of the test. If the directory was actually unlinked, we expect the set of
  # directories inside tempdir to remain unchanged.
    list.files(tempdir(), pattern = "[[:alpha:]]{8}")
INWTlab/rsync documentation built on Sept. 28, 2023, 5:22 p.m.