tests/testthat/test_generate_arg_setup_script.R

In scriptexec: Execute Native Scripts

context("generate_args_setup_script")

describe("generate_args_setup_script", {
    source("helper.R")

    it("no env", {
        script <- scriptexec::generate_args_setup_script()

        length <- length(script)
        expect_equal(length, 0)
    })

    it("multiple env vars", {
        script <- scriptexec::generate_args_setup_script(c("t1", "t2"))

        length <- length(script)
        expect_equal(length, 2)

        prefix <- get_os_string("", "SET ")
        expected_result <- c(paste(prefix, "ARG1=t1", sep = ""), paste(prefix,
            "ARG2=t2", sep = ""))

        expect_equal(expected_result, script)
    })
})