context("showStatus") test_that("showStatus", { reg = makeTestRegistry() f = function(x) { if (x < 3) stop() else { Sys.sleep(2) x } } batchMap(reg, f, 1:3) submitJobs(reg) waitForJobs(reg) expect_output({ showStatus(reg) }, "Status for 3 jobs") expect_output({ showStatus(reg, getJobIds(reg)[2:3]) }, "Status for 2 jobs") }) test_that("showStatus only shows some errors", { reg = makeTestRegistry() batchMap(reg, function(x) stop(), 1:3) submitJobs(reg) waitForJobs(reg) expect_output({ showStatus(reg, errors=1) }, "Showing first 1 errors:") }) test_that("showStatus works with empty id vector", { reg = makeTestRegistry() batchMap(reg, function(x) stop(), 1:3) submitJobs(reg) waitForJobs(reg) expect_output({ showStatus(reg, integer(0L)) }, "Status for 0 jobs") })
Generated by dwww version 1.15 on Fri May 24 09:10:02 CEST 2024.