The R Project SVN R

Rev

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

Rev 57604 Rev 57841
Line 473... Line 473...
473 
          identical(tg$def, tgg$def))
 473 
          identical(tg$def, tgg$def))
474 
## TODO:  the className returned by setRefClass should have
 474 
## TODO:  the className returned by setRefClass should have
475 
## a package attribute, which would allow:
 475 
## a package attribute, which would allow:
476 
##          identical(tg$className, tgg$className))
 476 
##          identical(tg$className, tgg$className))
477 
 
 477 
 
- 
 
 478 
## this used to fail in initFieldArgs() from partial matching "self"
- 
 
 479 
selfClass <- setRefClass("selfClass",
- 
 
 480 
        fields=list(
- 
 
 481 
            self="character", super="character", sub="character"
- 
 
 482 
        )
- 
 
 483 
    )
- 
 
 484 
 
- 
 
 485 
stopifnot(identical(selfClass$new(self="B", super="A", sub="C")$self, "B"))