Tweak new_env() test

Author: lionel-

inst/unitTests/runit.environments.R

@@ -270,8 +270,8 @@ if (.runThisTest) {
 
     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")
+        checkIdentical(parent.env(runit_new_env_default()), emptyenv(), msg = "new environment with default parent")
+        checkIdentical(parent.env(runit_new_env_parent(env)), env, msg = "new environment with specified parent")
     }
 
 }