tests/testthat/test-bootstrap.R

In tece-lab/DAISIEutils: Utility Functions for the DAISIE Package

test_that("bootstrap works", {
  skip_if(Sys.getenv("CI") == "", message = "Run only on CI")
  data_name <- "Azores"
  data("Azores")
  model <- "cr_dd"
  array_index <- 1
  cond <- 1
  test <- TRUE

  # Place files need to run bootstrap
  reference_files <- list.files(
    file.path("testdata", "results", "Azores"),
    full.names = TRUE,
    pattern = paste0(data_name, "_", model, "_[0-9].rds$")
  )
  temp_dir <- tempdir()
  results_folder <- create_output_folder(
    data_name = data_name,
    results_dir = temp_dir
  )
  expect_true(all(file.copy(reference_files, results_folder)))


  # Omit console output in tests
  invisible(suppressMessages(capture.output(
    bootstrap(
      daisie_data = Azores,
      data_name = data_name,
      model = "cr_dd",
      array_index = array_index,
      cond = cond,
      test = test,
      results_dir = temp_dir
    )
  )))
  actual_output <- readRDS(file.path(results_folder, "Azores_boot_cr_dd_1.rds"))

  expected_output <- readRDS(
    file.path("testdata", "results", "Azores", "Azores_boot_cr_dd_1.rds")
  )
  expect_equal(actual_output, expected_output)

  # Delete temp folder
  expect_equal(unlink("results", recursive = TRUE), 0)
  expect_equal(unlink(temp_dir, recursive = TRUE), 0)
})