test_that("is_outdated works", {
expect_identical(is_outdated(character(0L)), logical(0L))
old = getwd()
new = withr::local_tempfile()
expect_true(is_outdated(new))
fs::file_create(new)
expect_false(is_outdated(new))
expect_false(is_outdated(new, old))
expect_true(is_outdated(old, new))
expect_true(is_outdated(old, c(new, old)))
expect_false(is_outdated(new, c(new, old)))
expect_identical(is_outdated(c(old, new), c(new, old)), c(TRUE, FALSE))
expect_identical(is_outdated(c(old, new), new), c(TRUE, FALSE))
expect_identical(is_outdated(c(old, new), old), c(FALSE, FALSE))
})
test_that("file_copy_try works", {
src = withr::local_tempfile() |> fs::file_create()
dstdir = withr::local_tempdir("test_fs_")
dstfile = fs::path(dstdir, fs::path_file(src))
expect_identical(file_copy_try(src, dstdir), dstfile)
expect_identical(file_copy_try(src, dstdir), dstfile)
writeLines("hello", src)
expect_message(file_copy_try(src, dstdir, overwrite = FALSE), "outdated")
expect_identical(readLines(dstfile), character(0L))
expect_silent(file_copy_try(src, dstdir, overwrite = TRUE))
expect_identical(readLines(dstfile), "hello")
})
test_that("path_destination works", {
srcs = c("file", "rel/file", "/abs/file")
dstdir = fs::path(tempdir())
dstfiles = dstdir / basename(srcs)
expect_identical(path_destination(srcs, dstdir), dstfiles)
expect_identical(path_destination(srcs, dstfiles), dstfiles)
expect_error(path_destination(srcs, dstdir / "noexist"), "length")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.