tests/testthat/test-check_empty_beastier_folder.R

In richelbilderbeek/beastier: Call 'BEAST2'

test_that("tests should have cleaned up all their temp files", {
  check_empty_beaustier_folders()

  expect_silent(check_empty_beastier_folder())

  check_empty_beaustier_folders()
})

test_that("non-existing folder is empty", {
  expect_silent(check_empty_beastier_folder(get_beastier_tempfilename()))
})

test_that("folders are detected", {
  check_empty_beaustier_folders()

  beastier_folder <- get_beastier_tempfilename()
  beastier_subfolder <- file.path(beastier_folder, "subfolder")
  expect_silent(check_empty_beastier_folder(beastier_folder))
  dir.create(beastier_subfolder, showWarnings = FALSE, recursive = TRUE)
  expect_error(check_empty_beastier_folder(beastier_folder))
  unlink(beastier_folder, recursive = TRUE)
  expect_silent(check_empty_beastier_folder(beastier_folder))

  remove_beaustier_folders()
  check_empty_beaustier_folders()
})

test_that("files are detected", {
  expect_equal(1 + 1, 2) # nolint to prevent 'Reason: empty test'
  # No idea why this fails on Windows, will not test without
  # a bug report and a volunteer user
  skip_on_os(os = "windows")

  check_empty_beaustier_folders()

  dir.create(get_beastier_folder(), showWarnings = FALSE, recursive = TRUE)
  beastier_filename <- file.path(get_beastier_tempfilename())
  readr::write_lines(x = "irrelevant", file = beastier_filename)
  file.create(normalizePath(beastier_filename, mustWork = FALSE))
  expect_error(check_empty_beastier_folder(beastier_folder))
  file.remove(beastier_filename)

  remove_beaustier_folders()
  check_empty_beaustier_folders()
})