tests/testthat/test-multi-options.R

In Rapp: Easily Build Command Line Applications

ls_app <- test_path("apps", "ls.R")

run_ls_app <- function(args = character()) {
  invisible(Rapp::run(ls_app, args))
}

test_that("ls app accepts same option multiple times", {
  dir <- tempfile("rapp-ls")
  dir.create(dir)
  on.exit(unlink(dir, recursive = TRUE), add = TRUE)

  files <- c("alpha.txt", "alphabet.txt", "beta.R", "beta.txt", "notes.md")
  file.create(file.path(dir, files))

  # run_ls_app(c(dir, "-p", "alpha", "-p", "\\.txt$"))

  expect_snapshot(run_ls_app(c(dir, "-p", "alpha", "-p", "\\.txt$")))
  expect_snapshot(run_ls_app(c(dir, "--pattern", "t$", "-p", "^beta")))

  app <- Rapp:::as_app(ls_app)
  expect_identical(app$args$root$arg_type, "positional")

  lines <- help_lines(ls_app)
  expect_true(any(grepl(
    "May be supplied multiple times\\.",
    lines,
    fixed = FALSE
  )))
})

test_that("ls app emits YAML help for append options", {
  lines <- capture.output(Rapp::run(ls_app, "--help-yaml"))
  spec <- yaml12::parse_yaml(lines)

  expect_identical(spec[["options"]][["pattern"]][["action"]], "append")
})