Add unit test for new_env()

Author: lionel-

inst/unitTests/cpp/Environment.cpp

@@ -150,4 +150,12 @@ Environment runit_child(){
     return global_env.new_child(false) ;
 }
 
+// [[Rcpp::export]]
+Environment runit_new_env_default() {
+    return Rcpp::new_env();
+}
 
+// [[Rcpp::export]]
+Environment runit_new_env_parent(SEXP env) {
+    return Rcpp::new_env(env);
+}

inst/unitTests/runit.environments.R

@@ -268,5 +268,10 @@ if (.runThisTest) {
         checkEquals( parent.env(runit_child()), globalenv(), msg = "child environment" )
     }
 
+    test.environment.new_env <- function() {
+        env <- new.env()
+        checkEquals(parent.env(runit_new_env_default()), emptyenv(), msg = "new environment with default parent")
+        checkEquals(parent.env(runit_new_env_parent(env)), parent.env(env), msg = "new environment with specified parent")
+    }
 
 }