The R Project SVN R

Rev

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

Rev 56466 Rev 60192
Line 23... Line 23...
23 
stopifnot(identical(getClass("Cholesky"), clG))
 23 
stopifnot(identical(getClass("Cholesky"), clG))
24 
 
 24 
 
25 
## Second:  tests of methods defined for the same generic
 25 
## Second:  tests of methods defined for the same generic
26 
## (NOT YET!)
 26 
## (NOT YET!)
27 
 
 27 
 
- 
 
 28 
## Related: retaining package slots in methods signatures (reported by Martin Morgan)
- 
 
 29 
setClass("A")
- 
 
 30 
setGeneric("bar", function(x, y) standardGeneric("bar"))
- 
 
 31 
setMethod(bar, signature(x="A", y="A"), function(x, y) {})
- 
 
 32 
setMethod(bar, signature(x="A", y="ANY"), function(x, y) {})
- 
 
 33 
 
- 
 
 34 
## tests one use of .matchSigLength
- 
 
 35 
stopifnot(all(nzchar(getMethod("bar", signature(x="A", y="ANY"))@target@package)))