Regenerated tests.

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"