tests/testthat/test-quit_if_no_pacta_relevant_data.R

In 2DegreesInvesting/PACTA_analysis: Helpers for 'PACTA_analysis'

test_that("`quit_if_no_pacta_relevant_data()` quits if no ABCD in non-interactive", {
  skip_if_R_CMD_check()

  tmp_dir <- withr::local_tempdir()
  port_name <- "TestPort"
  expect_null({
    callr::r(
      func = function(tmp_dir, port_name) {
        devtools::load_all()
        source(here::here("0_global_functions.R"))
        port_with_no_data <- data.frame(has_asset_level_data = FALSE)
        outputs_path <<- tmp_dir
        portfolio_name_ref_all <<- port_name
        log_path <<- outputs_path
        report_path <- file.path(outputs_path, portfolio_name_ref_all, "report")
        dir.create(path = report_path, recursive = TRUE)
        setwd(here::here())
        quit_if_no_pacta_relevant_data(port_with_no_data)
        TRUE
      },
      args = list(tmp_dir, port_name)
    )
  })
  expect_true(file.exists(file.path(tmp_dir, port_name, "report", "user_errors.json")))
})

test_that("`quit_if_no_pacta_relevant_data()` passes if has ABCD in non-interactive", {
  skip_if_R_CMD_check()

  expect_true({
    callr::r(function() {
      devtools::load_all()
      source(here::here("0_global_functions.R"))
      port_with_no_data <- data.frame(has_asset_level_data = TRUE)
      outputs_path <<- tempdir()
      portfolio_name_ref_all <<- "TestPort"
      log_path <<- outputs_path
      dir.create(
        path = file.path(outputs_path, portfolio_name_ref_all, "report"),
        recursive = TRUE
      )
      dir.create(
        path = file.path("inst", "rmd"),
        recursive = TRUE
      )
      file.copy(here::here("inst/rmd/user_errors.Rmd"), "inst/rmd/user_errors.Rmd")
      quit_if_no_pacta_relevant_data(port_with_no_data)
      TRUE
    })
  })
})