add unit tests

Author: kevinushey

ChangeLog

@@ -1,6 +1,8 @@
-2015-06-25  Kevin Ushey  <[email protected]>
+2015-06-25 Kevin Ushey  <[email protected]>
 
 	* inst/include/Rcpp/api/meat/Rcpp_eval.h: reset error after Rcpp_eval
+	* inst/unitTests/cpp/Function.cpp: unit tests
+	* inst/unitTests/runit.Function.R: unit tests
         * inst/include/Rcpp/Function.h: catch empty error messages
         * inst/include/Rcpp/api/meat/Rcpp_eval.h: protect call
 

inst/unitTests/cpp/Function.cpp

@@ -76,3 +76,7 @@ Function function_namespace_env(){
     Function fun = ns[".asSparse"] ;  // accesses a non-exported function
     return fun;
 }
+
+// [[Rcpp::export]]
+void exec(Function f) { f(); }
+

inst/unitTests/runit.Function.R

@@ -84,6 +84,12 @@ if (.runThisTest) {
         checkException(function_cons_ns("sourceCpp", "Rcppp"), msg = "namespace-lookup constructor: fail when ns does not exist")
         checkException(function_cons_ns("sourceCppp", "Rcpp"), msg = "namespace-lookup constructor: fail when function not found")
     }
+    
+    test.Function.eval <- function() {
+        checkException(exec(stop))
+        # should not throw exception
+        exec(function() try(silent = TRUE, exec(stop)))
+    }
 
     # also check function is found in parent env