longtests/testthat/test-convertToHuman.R

In acidgenomics/AcidGSEA: Acid Genomics GSEA

skip_if_not(isAnExistingUrl("https://ensembl.org/"))

test_that("Human (already)", {
    object <- convertToHuman(deseq)
    expect_identical(object, deseq)
})

test_that("Mouse", {
    mm <- readRDS(file.path(cacheDir, "mm_deseq.rds"))
    expect_s4_class(mm, "DESeqAnalysis")
    expect_identical(
        object = dim(mm@data),
        expected = c(500L, 12L)
    )
    hs <- convertToHuman(mm)
    expect_s4_class(hs, "DESeqAnalysis")
    expect_identical(
        object = dim(hs@data),
        expected = c(484L, 12L)
    )
})