From 69c31989ac31a321f3c5dce4b09d6b99ebffe493 Mon Sep 17 00:00:00 2001
From: Adam Welc <adam.welc@oracle.com>
Date: Mon, 15 Aug 2016 20:27:14 -0700
Subject: [PATCH] Regenerated tests.
---
.../com/oracle/truffle/r/test/ExpectedTestOutput.test | 9 +++++++++
1 file changed, 9 insertions(+)
diff --git a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
index 747b14fce5..f1dc824c72 100644
--- a/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
+++ b/com.oracle.truffle.r.test/src/com/oracle/truffle/r/test/ExpectedTestOutput.test
@@ -6001,6 +6001,15 @@ a + foo(c) * b
#foo <- function(x) x*2; f <- function() a+foo(c)*b; as.function(c(alist(a=1+14, b=foo(x),c=), body(f)))(c=3,b=1)
[1] 21
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asfunction.testasfunction
+#{ .Internal(as.function.default(alist(a+b), "foo")) }
+Error in as.function.default(alist(a + b), "foo") : invalid environment
+
+##com.oracle.truffle.r.test.builtins.TestBuiltin_asfunction.testasfunction
+#{ .Internal(as.function.default(function() 42, parent.frame())) }
+Error in as.function.default(function() 42, parent.frame()) :
+ list argument expected
+
##com.oracle.truffle.r.test.builtins.TestBuiltin_asfunction.testasfunction
#{ as.function(alist("foo"))() }
[1] "foo"
--
GitLab