context("list_backup")
dr <- tempdir()
td <- file.path(dr, "rotor")
dir.create(td, recursive = TRUE)
teardown({
unlink(td, recursive = TRUE)
if (!length(list.files(dr))) unlink(dr, recursive = TRUE)
})
test_that("n_backups and co work as expected", {
tf <- file.path(td, "test.log")
files <- file.path(
td,
c("test.2019-02-01--12-00-00.log", "test.2019-02-01--12-00-01.log")
)
file.create(tf, files)
expect_path_equal(newest_backup(tf), files[[2]])
expect_path_equal(oldest_backup(tf), files[[1]])
files2 <- file.path(td, c("test.1.log", "test.2.log"))
file.create(files2)
expect_error(newest_backup(tf))
expect_error(prune_backups(tf, 0))
expect_warning(expect_true(n_backups(tf) == 4))
file.remove(files)
expect_path_equal(newest_backup(tf), files2[[1]])
expect_path_equal(oldest_backup(tf), files2[[2]])
prune_backups(tf, 0)
expect_true(n_backups(tf) == 0)
file.remove(tf)
})
test_that("n_backups and co work as expected with dir", {
tf <- file.path(td, "test.log")
bu_dir <- file.path(td, "backups")
dir.create(bu_dir)
on.exit(unlink(c(bu_dir, tf), recursive = TRUE))
files <- file.path(
bu_dir,
c("test.2019-02-01--12-00-00.log", "test.2019-02-01--12-00-01.log")
)
file.create(tf, files)
expect_path_equal(newest_backup(tf, dir = bu_dir), files[[2]])
expect_path_equal(oldest_backup(tf, dir = bu_dir), files[[1]])
files2 <- file.path(bu_dir, c("test.1.log", "test.2.log"))
file.create(files2)
expect_error(newest_backup(tf, dir = bu_dir))
expect_error(prune_backups(tf, 0, dir = bu_dir))
expect_warning(expect_true(n_backups(tf, dir = bu_dir) == 4))
file.remove(files)
expect_path_equal(newest_backup(tf, dir = bu_dir), files2[[1]])
expect_path_equal(oldest_backup(tf, dir = bu_dir), files2[[2]])
prune_backups(tf, 0, dir = bu_dir)
expect_true(n_backups(tf) == 0)
file.remove(tf)
expect_length(list.files(bu_dir), 0)
})
test_that("prune_backups dry run works with sepparate backup dir", {
tf <- file.path(td, "test.log")
bu_dir <- file.path(td, "backups")
dir.create(bu_dir)
on.exit(unlink(c(bu_dir, tf), recursive = TRUE))
files <- file.path(
bu_dir,
c("test.2019-02-01--12-00-00.log", "test.2019-02-01--12-00-01.log")
)
file.create(tf, files)
snap <- fileSnapshot(bu_dir)
expect_message(
prune_backups(tf, 0, dir = bu_dir, dry_run = TRUE),
"removing"
)
expect_snapshot_unchanged(snap)
prune_backups(tf, 0, dir = bu_dir)
file.remove(tf)
expect_length(list.files(bu_dir), 0)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.