Description: Skip test needing unpackaged database
Author: Andreas Tille <tille@debian.org>
Last-Update: Tue, 03 May 2016 20:27:21 +0200

--- a/inst/unitTests/test_makeSummarizedExperimentFromExpressionSet.R
+++ b/inst/unitTests/test_makeSummarizedExperimentFromExpressionSet.R
@@ -141,47 +141,3 @@ test_GenomicRanges_SummarizedExperiment_
                        sampleNames(eset5))
 }
 
-test_GenomicRanges_SummarizedExperiment_coercion_mappingFunctions <- function()
-{
-    ## naiveRangeMapper
-    ## valid object from empty object
-    checkTrue(validObject(makeSummarizedExperimentFromExpressionSet(ExpressionSet())))
-
-    ## valid object from sample ExpressionSet
-    data("sample.ExpressionSet", package = "Biobase")
-    eset1 <- sample.ExpressionSet
-    checkTrue(validObject(makeSummarizedExperimentFromExpressionSet(eset1)))
-
-    ## makeSummarizedExperimentFromExpressionSet should be the same as `as`
-    ## with default args
-    checkEquals(makeSummarizedExperimentFromExpressionSet(eset1),
-                as(eset1, "RangedSummarizedExperiment"))
-
-    ## probeRangeMapper
-    ## valid object from empty object
-    checkTrue(validObject(
-            makeSummarizedExperimentFromExpressionSet(ExpressionSet(),
-                probeRangeMapper)))
-
-    ## valid object from sample ExpressionSet
-    se1 <- makeSummarizedExperimentFromExpressionSet(eset1, probeRangeMapper)
-    checkTrue(validObject(se1))
-
-    ## Granges returned have rownames that were from the featureNames
-    checkTrue(all(rownames(rowRanges(se1)) %in% featureNames(eset1)))
-
-    ## geneRangeMapper
-    ## valid object from empty object
-    checkTrue(validObject(
-            makeSummarizedExperimentFromExpressionSet(ExpressionSet(),
-                geneRangeMapper(NULL))))
-
-    ## valid object from sample ExpressionSet
-    se2 <- makeSummarizedExperimentFromExpressionSet(eset1,
-        geneRangeMapper("TxDb.Hsapiens.UCSC.hg19.knownGene"))
-    checkTrue(validObject(se2))
-
-    ## Granges returned have rownames that were from the featureNames
-    checkTrue(all(rownames(rowRanges(se2)) %in% featureNames(eset1)))
-}
-