Add test for fix of #7

ianmcook · Sep 1, 2019 · 9f3829f · 9f3829f
1 parent 6ca50c5
commit 9f3829f
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-secure.R b/tests/testthat/test-secure.R
@@ -12,6 +12,12 @@ test_that("parse_expression() fails on illegal function when function also used
   )
 })
 
+test_that("parse_expression() fails on illegal function called without parentheses using %>%", {
+  expect_error(
+    parse_expression("'ls' %>% system"),
+    "^Unrecognized"
+  )
+})
 
 test_that("parse_expression(secure = FALSE) does not fail on illegal function", {
   expect_error(