The R Project SVN R

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
71755 ripley 1 
### Moved from reg-tests-1c.R
2 
 
3 
## envRefClass prototypes are a bit special -- broke all.equal() for baseenv()
4 
rc <- getClass("refClass")
5 
rp <- rc@prototype
6 
str(rp) ## failed
7 
rp ## show() failed ..
8 
(ner <- new("envRefClass")) # show() failed
9 
stopifnot(all.equal(rp,rp), all.equal(ner,ner))
10 
be <- baseenv()
11 
system.time(stopifnot(all.equal(be,be)))## <- takes a few sec's
12 
stopifnot(
13 
    grepl("not identical.*character", print(all.equal(rp, ner))),
14 
    grepl("not identical.*character", print(all.equal(ner, rp))))
15 
system.time(stopifnot(all.equal(globalenv(), globalenv())))
16 
## Much of the above failed in  R <= 3.2.0
17 
 
18 
proc.time()