Add test

dirkschumacher · Feb 6, 2020 · cc01c38 · cc01c38
1 parent 6add123
commit cc01c38
Showing 1 changed file with 8 additions and 0 deletions.
diff --git a/tests/testthat/test-expand.R b/tests/testthat/test-expand.R
@@ -12,6 +12,14 @@ test_that("simple expand example works", {
   }))
 })
 
+test_that("missing arguments are supported", {
+  fun <- function() {
+    iris[1, ]
+  }
+
+  expect_identical(expand_function(fun), fun)
+})
+
 test_that("expanding a macro retains attributes", {
   add <- defmacro(function() {
     1