check it can call with different super arguments

robertzk · Mar 1, 2015 · 57d8f19 · 57d8f19
1 parent c3d2b8d
commit 57d8f19
Showing 1 changed file with 18 additions and 0 deletions.
diff --git a/tests/testthat/test-super.R b/tests/testthat/test-super.R
@@ -36,4 +36,22 @@ test_that("it errors when no super method exists", {
   expect_error(not_a_function(), "No parent function")
 })
 
+test_that("it can call with different super arguments", {
+  calls <- integer(0)
+  function1 <- function(x) {
+    calls <<- c(calls, x)
+  }
+
+  function2 <- function() {
+    function1 <- function(y) {
+      calls <<- c(calls, y)
+      super(2)
+    }
+    function1(1)
+  }
+  function2()
+
+  expect_equal(calls, c(1L, 2L))
+})
+