context("resources")
test_that("resources", {
# FIXME this is still broken for all major cluster system
# because the resources are stupid!
# use resources on slave
reg = makeTestRegistry()
batchMap(reg, function(i) getResources(), 1:2)
res = list(walltime=5*60, memory=500)
submitJobs(reg, resources=res)
waitForJobs(reg)
expect_equal(loadResult(reg, 1)[names(res)], res)
# see FIXME in testJob.R
# expect_equal(testJob(reg, 1, resources=res, external=FALSE)[names(res)], res)
# query on master
res1 = getJobResources(reg, 1)[[1]]
res2 = getJobResources(reg, 2)[[1]]
expect_equal(res1, res2)
expect_equal(res1[names(res)], res)
#submit only a few jobs
resetJobs(reg, ids=1:2, force=TRUE)
submitJobs(reg, ids=1, resources=res)
waitForJobs(reg)
expect_equal(loadResult(reg, 1)[names(res)], res)
expect_error(getJobResources(reg, 1:2), "not been submitted")
res1 = getJobResources(reg)
res2 = getJobResources(reg, 1)
expect_equal(res1, res2)
# defaults in conf
# conf = BatchJobs:::getBatchJobsConf()
# conf$default.resources = list(walltime=1, memory=2, xxx=3)
# reg = makeTestRegistry()
# batchMap(reg, function(i) getResources(), 1)
# expect_error(submitJobs(reg, resources=list(memory=200)), "Illegal resources used")
# waitForJobs(reg)
})
Generated by dwww version 1.15 on Thu May 23 19:00:43 CEST 2024.