The R Project SVN – R – Diff – /trunk/src/library/methods/tests/basicRefClass.R



 
ff <- mv( data = xMat)
stopifnot(identical(markViewer, "ON")) # check initialize
ff$edit(2,2,0)
ff$data
if(methods:::.hasCodeTools())  # otherwise 'counter' is not visible
    stopifnot(identical(ff$counts(), length(ff$edits[[1]][[3]])))
ff$undo()
stopifnot(all.equal(ff$data, xMat))
rm(ff)
gc()
stopifnot(identical(markViewer, "OFF")) #check finalize

Rev 62700	Rev 69213
Line 323...	Line 323...
323		323
324	`ff <- mv( data = xMat)`	324	`ff <- mv( data = xMat)`
325	`stopifnot(identical(markViewer, "ON")) # check initialize`	325	`stopifnot(identical(markViewer, "ON")) # check initialize`
326	`ff$edit(2,2,0)`	326	`ff$edit(2,2,0)`
327	`ff$data`	327	`ff$data`
-		328	`if(methods:::.hasCodeTools()) # otherwise 'counter' is not visible`
328	`stopifnot(identical(ff$counts(), length(ff$edits[[1]][[3]])))`	329	`stopifnot(identical(ff$counts(), length(ff$edits[[1]][[3]])))`
329	`ff$undo()`	330	`ff$undo()`
330	`stopifnot(all.equal(ff$data, xMat))`	331	`stopifnot(all.equal(ff$data, xMat))`
331	`rm(ff)`	332	`rm(ff)`
332	`gc()`	333	`gc()`
333	`stopifnot(identical(markViewer, "OFF")) #check finalize`	334	`stopifnot(identical(markViewer, "OFF")) #check finalize`

The R Project SVN R

(root)/trunk/src/library/methods/tests/basicRefClass.R @ 63243 – Rev 62700 → 69213