test execution with help

jeremystan · Sep 24, 2016 · c15ffa1 · c15ffa1
1 parent 5ce309f
commit c15ffa1
Show file tree

Hide file tree

Showing 2 changed files with 15 additions and 1 deletion.
diff --git 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
@@ -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:")
+
+})