13 lines
425 B
R
13 lines
425 B
R
source(file.path("..", "r-minor-helpers.R"))
|
|
|
|
test_that("parse_build_args splits flags from positionals", {
|
|
a <- parse_build_args(c("--sensitive-only", "4", "2", "8"))
|
|
expect_true(a$sensitive_only)
|
|
expect_identical(a$split_into, 4L)
|
|
expect_identical(a$split_index, 2L)
|
|
expect_identical(a$ncpus, 8L)
|
|
|
|
b <- parse_build_args(c("4", "2", "8"))
|
|
expect_false(b$sensitive_only)
|
|
expect_identical(b$split_into, 4L)
|
|
})
|