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)
})