another test

mailund · Feb 7, 2018 · 7d8a1a2 · 7d8a1a2
1 parent b12cdd6
commit 7d8a1a2
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-loop-transformation.R b/tests/testthat/test-loop-transformation.R
@@ -55,3 +55,13 @@ test_that("we can transform a simple function", {
         expect_equal(factorial_acc(i), transformed(i))
     }
 })
+
+test_that("we cannot transform a non-tail-recursive function", {
+    factorial <- function(n, acc = 1)
+        if (n <= 1) acc else n * factorial(n - 1)
+
+    expect_warning(
+        expect_equal(factorial, transform(factorial)),
+        "Could not build .*"
+    )
+})