The R Project SVN 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)))