diff --git a/DESCRIPTION b/DESCRIPTION index 5161cec..18b93f8 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -17,6 +17,7 @@ LazyData: true Suggests: testthat, knitr, - rmarkdown + rmarkdown, + stringr RoxygenNote: 5.0.1 VignetteBuilder: knitr diff --git a/tests/testthat/test-init_args.R b/tests/testthat/test-init_args.R index acd8e8b..529246f 100644 --- a/tests/testthat/test-init_args.R +++ b/tests/testthat/test-init_args.R @@ -19,3 +19,16 @@ test_that("init_args works for a simple example", { expect_identical(args, expected) }) + +context("example") + +example <- "%s/example.R" %>% sprintf(system.file("exec", package = "args")) +library(stringr) + +test_that("help works", { + + command <- "%s --help" %>% sprintf(example) + res <- suppressWarnings(system(command, intern = TRUE)) + expect_identical(res[1] %>% str_sub(1, 6), "usage:") + +})