The R Project SVN R

Rev

Rev 55944 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 55944 Rev 61820
Line 12... Line 12...
12 
stopifnot(is(tryCatch(names(c) <- "A" , error = function(e)e), "error"))
 12 
stopifnot(is(tryCatch(names(c) <- "A" , error = function(e)e), "error"))
13 
setClass("D", contains = "numeric", representation(names = "character"))
 13 
setClass("D", contains = "numeric", representation(names = "character"))
14 
d <- new("D", 1)
 14 
d <- new("D", 1)
15 
names(d) <- "A"
 15 
names(d) <- "A"
16 
stopifnot(identical(d@names, "A"))
 16 
stopifnot(identical(d@names, "A"))
- 
 
 17 
## test the checks on @<- primitive assignment
- 
 
 18 
stopifnot(is(tryCatch(a@yy <- 1 , error = function(e)e), "error"))
- 
 
 19 
stopifnot(is(tryCatch(a@xx <- "A" , error = function(e)e), "error"))