tests/testthat/test-cromwell_submit_batch.R

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

test_that("cromwell_submit_batch: query", {
  res <- cromwell_submit_batch_query(
    wdl = file_hello, params = file_inputs
  )

  expect_length(res, 2)
  expect_type(res, "list")
  expect_named(res, c("workflowSource", "workflowInputs"))
  expect_s3_class(res$workflowSource, "form_file")
})

test_that("cromwell_submit_batch: http", {
  body <- cromwell_submit_batch_query(
    wdl = file_hello, params = file_inputs
  )
  vcr::use_cassette("cromwell_submit_batch_http", {
    res <- cromwell_submit_batch_http(body, cw_url(), NULL)
  })

  expect_length(res, 2)
  expect_type(res, "list")
  expect_named(res, c("id", "status"))
  expect_equal(res$status, "Submitted")
})

test_that("cromwell_submit_batch", {
  vcr::use_cassette("cromwell_submit_batch", {
    res <- cromwell_submit_batch(wdl = file_hello, params = file_inputs)
  })

  expect_equal(NROW(res), 1)
  expect_named(res, c("id", "status"))
  expect_equal(res$status, "Submitted")
})

# addresses: https://github.com/getwilds/rcromwell/issues/32
test_that("cromwell_submit_batch_workflow_options", {
  vcr::use_cassette("cromwell_submit_batch_workflow_options", {
    res <- cromwell_submit_batch(
      wdl = file_hello,
      params = file_inputs,
      options = file_workflow_opts
    )
  })

  expect_equal(NROW(res), 1)
  expect_named(res, c("id", "status"))
  expect_equal(res$status, "Submitted")
})