tests/testthat/test-integerCounts.R

In acidgenomics/r-acidexperiment: Acid Genomics Summarized Experiment

## This is primarily intended for use with DESeq2.
test_that("SE", {
    object <- SummarizedExperiment(
        assays = list(
            "counts" = matrix(
                data = c(
                    0.1, 0.2, 0.3,
                    1.1, 1.2, 1.3,
                    2.1, 2.2, 2.3
                ),
                nrow = 3L,
                ncol = 3L,
                byrow = TRUE
            )
        )
    )
    expected <- matrix(
        data = c(
            0L, 0L, 0L,
            1L, 1L, 1L,
            2L, 2L, 2L
        ),
        nrow = 3L,
        ncol = 3L,
        byrow = TRUE
    )
    expect_identical(
        object = integerCounts(object),
        expected = expected
    )
})

test_that("Matrix", {
    object <- matrix(
        ## nolint start
        data = c(
            0, 0, 1.1, 1.2,
            2.1, 2.2, 0, 0,
            3.1, 0, 3.2, 0
        ),
        ## nolint end
        nrow = 3L,
        ncol = 4L,
        byrow = TRUE
    )
    object <- as(object, "sparseMatrix")
    expected <- matrix(
        data = c(
            0L, 0L, 1L, 1L,
            2L, 2L, 0L, 0L,
            3L, 0L, 3L, 0L
        ),
        nrow = 3L,
        ncol = 4L,
        byrow = TRUE
    )
    expected <- as(expected, "sparseMatrix")
    expect_identical(
        object = integerCounts(object),
        expected = expected
    )
})