inst/extensions/tests/testthat/test-integer.R

In beachmat: Compiling Bioconductor to Handle Each Matrix Type

# Tests whether Aaron's Matrix can be successfully read by beachmat.
# library(testthat); library(morebeach); library(beachtest); source("test-integer.R")

generator <- function(nr=15, nc=10) {
    AaronMatrix(matrix(rpois(nr*nc, lambda=5), nr, nc))
}

test_that("Aaron's Matrix can be read by beachmat", {
    check_read_all(generator, mode="integer")
    check_read_all(generator, nr=5, nc=30, mode="integer")
    check_read_all(generator, nr=30, nc=5, mode="integer")

    check_read_slice(generator, mode="integer")
    check_read_slice(generator, nr=5, nc=30, mode="integer")
    check_read_slice(generator, nr=30, nc=5, mode="integer")

    check_read_varslice(generator, mode="integer")
    check_read_varslice(generator, nr=5, nc=30, mode="integer")
    check_read_varslice(generator, nr=30, nc=5, mode="integer")

    check_read_multi(generator, mode="integer")
    check_read_multi(generator, nr=5, nc=30, mode="integer")
    check_read_multi(generator, nr=30, nc=5, mode="integer")

    check_read_type(generator, mode="integer")
    check_read_class(generator(), mode="integer", "AaronMatrix")

    check_read_errors(generator, mode="integer")
    check_read_all(generator, nr=0, nc=0, mode="integer")
    check_read_all(generator, nr=10, nc=0, mode="integer")
    check_read_all(generator, nr=0, nc=10, mode="integer")
})

test_that("Aaron's Matrix can be written by beachmat", {
    check_write_all(generator, mode="integer")
    check_write_all(generator, nr=5, nc=30, mode="integer")
    check_write_all(generator, nr=30, nc=5, mode="integer")

    check_write_slice(generator, mode="integer")
    check_write_slice(generator, nr=5, nc=30, mode="integer")
    check_write_slice(generator, nr=30, nc=5, mode="integer")

    check_write_varslice(generator, mode="integer")
    check_write_varslice(generator, nr=5, nc=30, mode="integer")
    check_write_varslice(generator, nr=30, nc=5, mode="integer")

    check_write_indexed(generator, mode="integer")
    check_write_indexed(generator, nr=5, nc=30, mode="integer")
    check_write_indexed(generator, nr=30, nc=5, mode="integer")

    check_write_type(generator, mode="integer")
    check_write_errors(generator, mode="integer")

    check_write_all(generator, nr=0, nc=0, mode="integer")
    check_write_all(generator, nr=10, nc=0, mode="integer")
    check_write_all(generator, nr=0, nc=10, mode="integer")
})