tests/testthat/test-file.R

In jmbarbone/mark: Miscellaneous, Analytic R Kernels

test_that("file_copy_md5() works", {
  x <- c(tempfile("one"), tempfile("two"), tempfile("three"))
  y <- c(tempfile("one"), tempfile("two"), tempfile("three"))
  on.exit(fs::file_delete(c(x, y)))

  writeLines("one", x[1L])
  writeLines("two", x[2L])
  writeLines("three", x[3L])

  # none of y exists
  expect_message(
    file_copy_md5(x, y, overwrite = FALSE),
    class = "mark:fileCopyMd5Message"
  )
  expect_message(
    file_copy_md5(x, y, overwrite = FALSE),
    class = "mark:fileCopyMd5Message"
  )

  # all of y exists
  expect_message(
    file_copy_md5(x, y, overwrite = TRUE),
    class = "mark:fileCopyMd5Message"
  )

  # mix
  writeLines("twotwo", y[2L])
  fs::file_delete(y[3L])

  expect_message(
    expect_identical(
      attr(file_copy_md5(x, y), "changed"),
      c(FALSE, TRUE, NA)
    ),
    class = "mark:fileCopyMd5Message",
    regexp = paste(
      "one", "md5 same", "two", "md5 change", "three", "new file",
      sep = ".*"
    )
  )

  expect_message(file_copy_md5(x, y, quiet = TRUE), NA)
})