40 lines
1.4 KiB
R
40 lines
1.4 KiB
R
|
## Tests for handling classes with same name & different package slots
|
||
|
|
## First: Can we define the classes and get the separate definitions
|
||
|
|
## from the appropriate namespace or from the package slot in class(x)?
|
||
|
|
if(!require(Matrix)) q()
|
||
|
|
|
||
|
|
## from: example(chol)
|
||
|
|
sy2 <- new("dsyMatrix", Dim = as.integer(c(2,2)), x = c(14, NA,32,77))
|
||
|
|
c2 <- chol(sy2)
|
||
|
|
stopifnot(is(c2, "dtrMatrix"),
|
||
|
|
all.equal(as.matrix(c2), tol = 7e-7, # see 2.7e-7
|
||
|
|
matrix(c(3.74166, 0, 8.55236, 1.96396), 2))
|
||
|
|
)
|
||
|
|
clM <- getClass("Cholesky")
|
||
|
|
cM <- new(clM)
|
||
|
|
|
||
|
|
## an*other* "Cholesky" class:
|
||
|
|
setClass("Cholesky", contains = "numeric", representation(size = "integer"))
|
||
|
|
|
||
|
|
clG <- getClass("Cholesky", where = .GlobalEnv)
|
||
|
|
|
||
|
|
stopifnot(exprs = {
|
||
|
|
identical(clM, getClass("Cholesky", where = asNamespace("Matrix")))
|
||
|
|
identical(evalq(getClass("Cholesky"), asNamespace("Matrix")), clM)
|
||
|
|
identical(getClass(class(cM)), clM)
|
||
|
|
identical(getClass("Cholesky"), clG)
|
||
|
|
})
|
||
|
|
|
||
|
|
## Second: tests of methods defined for the same generic
|
||
|
|
## (NOT YET!)
|
||
|
|
|
||
|
|
|
||
|
|
## Related: retaining package slots in methods signatures (reported by Martin Morgan)
|
||
|
|
setClass("A")
|
||
|
|
setGeneric("bar", function(x, y) standardGeneric("bar"))
|
||
|
|
setMethod(bar, signature(x="A", y="A"), function(x, y) {})
|
||
|
|
setMethod(bar, signature(x="A", y="ANY"), function(x, y) {})
|
||
|
|
|
||
|
|
## tests one use of .matchSigLength
|
||
|
|
stopifnot(all(nzchar(getMethod("bar", signature(x="A", y="ANY"))@target@package)))
|