tests/testthat/test_list_backups.R

In s-fleck/rotor: Log Rotation and Conditional Backups

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)
})