Add test for R_tryEval

com.oracle.truffle.r.test.native/packages/testrffi/testrffi/R/testrffi.R

@@ -49,3 +49,8 @@ rffi.invoke12 <- function() {
 rffi.interactive <- function() {
 	.Call("interactive", PACKAGE = "testrffi");
 }
+
+rffi.tryEval <- function(expr, env) {
+	.Call("tryEval", expr, env, PACKAGE = "testrffi")
+}
+

com.oracle.truffle.r.test.native/packages/testrffi/testrffi/src/testrffi.c

@@ -141,6 +141,6 @@ SEXP interactive(void) {
 }
 
 SEXP tryEval(SEXP expr, SEXP env) {
+	return R_tryEval(expr, env, NULL);
 }
 
-}