tests/testthat/setup.R

In LTLA/beachmat: Compiling Bioconductor to Handle Each Matrix Type

am_i_ok <- function(ref, ptr, exact=TRUE) {
    expect_identical(dim(ref), tatami.dim(ptr))
    test <- if (exact) expect_identical else expect_equal
    for (i in seq_len(ncol(ref))) {
        expected <- ref[,i]
        if (!is.double(expected)) { 
            expected <- as.double(expected) 
        }
        test(expected, tatami.column(ptr, i))
    }

    # Checking for thread-correct processing.
    expect_equal(tatami.row.sums(ptr, 2), Matrix::rowSums(ref))
    expect_equal(tatami.column.sums(ptr, 2), Matrix::colSums(ref))
}