tests/testthat/test-local_slurm_call.R

library(rslurm)
context("local slurm_call")

Sys.setenv(R_TESTS = "")

# Test slurm_call locally

msg <- capture.output({
    z <- 0
    sjob <- slurm_call(function(x, y) x * 2 + y + z, list(x = 5, y = 6),
                       add_objects = c('z'),
                       jobname = "test^\\* call", submit = FALSE)
})

test_that("slurm_job name is correctly edited", {
    expect_equal(sjob$jobname, "test_call")
})

sjob <- local_slurm_array(sjob)
# olddir <- getwd()
# rscript_path <- file.path(R.home("bin"), "Rscript")
# setwd(paste0("_rslurm_", sjob$jobname))
# tryCatch(system(paste(rscript_path, "--vanilla slurm_run.R")), 
#          finally = setwd(olddir))
res <- get_slurm_out(sjob, wait = FALSE)

test_that("slurm_call returns correct output", {
    expect_equal(res, 16)
})

# Pause to make sure temporary folder is free to be deleted
Sys.sleep(1)
cleanup_files(sjob, wait = FALSE)

Try the rslurm package in your browser

Any scripts or data that you put into this service are public.

rslurm documentation built on Nov. 17, 2017, 7:48 a.m.