tests/testthat/test-cromwell_failures.R

In FredHutch/fh.wdlR: Convenience Tools for Managing WDL Workflows via Cromwell

test_that("cromwell_failures", {
  vcr::use_cassette("cromwell_failures_prep", {
    job <- cromwell_submit_batch(wdl = file_hello, params = file_inputs_bad)
  })

  # Sys.sleep(30) # Needed only for recording new fixture #nolint

  vcr::use_cassette("cromwell_failures", {
    res <- cromwell_failures(job$id)
  })

  expect_s3_class(res, "data.frame")
  expect_equal(NROW(res), 0)
})