| ### Moved from reg-tests-1c.R | |
| ## envRefClass prototypes are a bit special -- broke all.equal() for baseenv() | |
| rc <- getClass("refClass") | |
| rp <- rc@prototype | |
| str(rp) ## failed | |
| rp ## show() failed .. | |
| (ner <- new("envRefClass")) # show() failed | |
| stopifnot(all.equal(rp,rp), all.equal(ner,ner)) | |
| be <- baseenv() | |
| system.time(stopifnot(all.equal(be,be)))## <- takes a few sec's | |
| stopifnot( | |
| grepl("not identical.*character", print(all.equal(rp, ner))), | |
| grepl("not identical.*character", print(all.equal(ner, rp)))) | |
| system.time(stopifnot(all.equal(globalenv(), globalenv()))) | |
| ## Much of the above failed in R <= 3.2.0 | |
| proc.time() |