| ## 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) |
| |
| clM <- getClass("Cholesky") |
| |
| setClass("Cholesky", contains = "numeric", representation(size = "integer")) |
| |
| clG <- getClass("Cholesky", where = .GlobalEnv) |
| |
| stopifnot(identical(getClass("Cholesky", where = asNamespace("Matrix")), |
| clM)) |
| |
| stopifnot(identical(getClass(class(c2)), clM)) |
| |
| stopifnot(identical(evalq(getClass("Cholesky"), asNamespace("Matrix")), |
| clM)) |
| stopifnot(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))) |
