check that it it errors when no super method exists

robertzk · Mar 1, 2015 · c3d2b8d · c3d2b8d
1 parent 1557785
commit c3d2b8d
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/tests/testthat/test-super.R b/tests/testthat/test-super.R
@@ -31,4 +31,9 @@ test_that("it calls the parent method in a single example chain", {
   expect_equal(calls, 3L:1L)
 })
 
+test_that("it errors when no super method exists", {
+  not_a_function <- function() { super() }
+  expect_error(not_a_function(), "No parent function")
+})
+