tests/testthat/test-read_runtime_log.R

In Neves-P/DAISIErobustness: Test the Robustness of DAISIE to Geodynamics and Traits

test_that("read_runtime works", {
  skip_if(Sys.getenv("CI") == "", message = "Run only on CI")

  # Find test environment file path
  log_file_path <- list.files(
    file.path("testdata", "logs"),
    full.names = TRUE,
    pattern = "robustness-22891163.log"
  )
  log_lines <- read_log_file(log_file_path = log_file_path)
  runtime <- read_runtime_log(
    log_lines = log_lines,
    log_file_path = log_file_path
  )
  expect_equal(runtime, 127)
})