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



 
yy <- mEditor(data = xMat+1)
yy$change(xx)
stopifnot(identical(yy$data, xx$data), identical(yy$edits, xx$edits))
 
## but don't allow assignment
if(methods:::.hasCodeTools())
        stopifnot(is(tryCatch(yy$.self$data <- xMat, error = function(e)e), "error"))
 
## the locked binding of refGeneratorSlot class should prevent modifying
## methods, locking fields or setting accessor methods

Rev 69213	Rev 88267
Line 496...	Line 496...
496		496
497	`yy <- mEditor(data = xMat+1)`	497	`yy <- mEditor(data = xMat+1)`
498	`yy$change(xx)`	498	`yy$change(xx)`
499	`stopifnot(identical(yy$data, xx$data), identical(yy$edits, xx$edits))`	499	`stopifnot(identical(yy$data, xx$data), identical(yy$edits, xx$edits))`
500		500
501	`## but don't allow assigment`	501	`## but don't allow assignment`
502	`if(methods:::.hasCodeTools())`	502	`if(methods:::.hasCodeTools())`
503	`stopifnot(is(tryCatch(yy$.self$data <- xMat, error = function(e)e), "error"))`	503	`stopifnot(is(tryCatch(yy$.self$data <- xMat, error = function(e)e), "error"))`
504		504
505	`## the locked binding of refGeneratorSlot class should prevent modifying`	505	`## the locked binding of refGeneratorSlot class should prevent modifying`
506	`## methods, locking fields or setting accessor methods`	506	`## methods, locking fields or setting accessor methods`

The R Project SVN R

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