inst/tinytest/test-wait_slurm.R

In USCbiostats/sluRm: A Lightweight Wrapper for 'Slurm'

if (slurm_available()) {

  job <- Slurm_EvalQ(
    Sys.sleep(1000), njobs = 1L, plan = "submit",
    job_name = "test-wait_slurm1"
    )

  seconds <- Sys.time()
  wait_slurm(job, timeout = 5)
  
  expect_true(difftime(Sys.time(), seconds, units = "secs") < 10)

  seconds <- Sys.time()
  wait_slurm(job$jobid, timeout = 5)
 
  expect_true(difftime(Sys.time(), seconds, units = "secs") < 10)
  scancel(job)
  Slurm_clean(job)

}