Updated test results

git-svn-id: https://svn.r-project.org/R/branches/R-noNULLenv@34875 00db46b3-68df-0310-9c12-caf00c1e9a41

tests/isas-tests.Rout.save

@@ -343,8 +343,6 @@ non-square matrix in: as.dist.default(x)
 [1] TRUE
 > res <- try(as.environment( x ), silent = TRUE)
 > if(!inherits(res, 'try-error')) report(is.environment(res))
-[1] FALSE
-Error: x is not TRUE
 > res <- try(as.expression( x ), silent = TRUE)
 > if(!inherits(res, 'try-error')) report(is.expression(res))
 [1] TRUE
@@ -429,8 +427,6 @@ Error: x is not TRUE
 > if(!inherits(res, 'try-error'))
 +    report({if(is.environment(x)) { cat('IS: ');all.equal(x, res, tol=0)
 +    } else   !isall.equal(x, res)})
-[1] FALSE
-Error: x is not TRUE
 > res <- try(as.expression( x ), silent = TRUE)
 > if(!inherits(res, 'try-error'))
 +    report({if(is.expression(x)) { cat('IS: ');all.equal(x, res, tol=0)
@@ -549,7 +545,6 @@ Error: x is not TRUE
 [1] TRUE
 > f <- try(as.environment( x ), silent = TRUE)
 >   if(!inherits(f, 'try-error')) report(identical(f, as.environment( f )))
-[1] TRUE
 > f <- try(as.expression( x ), silent = TRUE)
 >   if(!inherits(f, 'try-error')) report(identical(f, as.expression( f )))
 [1] TRUE

tests/primitive-funs.Rout.save

@@ -64,6 +64,7 @@ Type 'q()' to quit R.
 + 	   ".Primitive", ".Internal", ".External", ".Call",
 +            ".External.graphics", ".Call.graphics",
 + 	   ".C", ".Fortran", "symbol.C", "symbol.For",
++ 	   "emptyenv", "baseenv",
 + 	   "globalenv", "pos.to.env", "unclass",
 +            "as.character", "as.environment",
 + 	   ##maybe ? "gc", "gcinfo",