tests/testthat/test-coerceS4ToList.R

In acidgenomics/transformer: Coercion methods for biological data

context("coerceS4ToList")

test_that("coerceS4ToList", {
    object <- coerceS4ToList(rse)
    expect_is(object, "list")
    expect_identical(
        object = names(object),
        expected = c(
            "rowRanges",
            "colData",
            "assays",
            "NAMES",
            "elementMetadata",
            "metadata"
        )
    )
})