test that super does not allow get overwrites for now

robertzk · Mar 27, 2015 · 7b2e8cb · 7b2e8cb
1 parent a02a38e
commit 7b2e8cb
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-super.R b/tests/testthat/test-super.R
@@ -207,3 +207,13 @@ test_that("it is smart about translating NSE through named name swaps", {
   }, list(1, 2, "val", "val2"))
 })
 
+test_that("it does not allow get calls in super (for now)", {
+  get <- function() { cat("hi") }
+  local({
+    get <- function() { super::super() }
+    local({
+      get <- function() { super::super() }
+      expect_error(get(), "super::super does not")
+    })
+  })
+})