test_that("Biocompute object created correctly", { input_yml <- test_script("_whirl_biocompute.yaml") queue <- whirl::run( input = input_yml, out_formats = NULL, summary_file = NULL ) bco_tmp <- withr::local_tempfile(fileext = ".json") bco <- write_biocompute(queue = queue, path = bco_tmp) |> expect_no_condition() expect_snapshot(str(bco$io_domain)) })