tests/testthat/test_HDF5_utils.R

In kasperdanielhansen/bsseq: Analyze, manage and store whole-genome methylation data

test_that(".isHDF5ArrayBacked()", {
    matrix <- matrix(1:10, ncol = 2)
    da <- DelayedArray(matrix)
    ha <- realize(da, BACKEND = "HDF5Array")
    ha_ha <- rbind(ha, ha)
    da_da <- rbind(da, da)
    ha_ha_ha_ha <- rbind(ha_ha, ha_ha)
    da_da_da_da <- rbind(da_da, da_da)
    da_da_ha_ha <- rbind(da_da, ha_ha)

    expect_true(!bsseq:::.isHDF5ArrayBacked(matrix))
    expect_true(bsseq:::.isHDF5ArrayBacked(ha))
    expect_true(!bsseq:::.isHDF5ArrayBacked(da))
    expect_true(bsseq:::.isHDF5ArrayBacked(ha_ha))
    expect_true(!bsseq:::.isHDF5ArrayBacked(da_da))
    expect_true(bsseq:::.isHDF5ArrayBacked(ha_ha_ha_ha))
    expect_true(!bsseq:::.isHDF5ArrayBacked(da_da_da_da))
    expect_true(bsseq:::.isHDF5ArrayBacked(da_da_ha_ha))

    # A complicated DelayedArray with another DelayedArray as a seed
    skip("TODO: Remove these tests if no longer required")
    da_with_da_seed <- bsseq:::.collapseDelayedMatrix(x = da,
                                                      sp = list(1:2, 3:5),
                                                      MARGIN = 2)
    ha_with_ha_seed <- bsseq:::.collapseDelayedMatrix(
        x = ha,
        sp = list(1:2, 3:5),
        MARGIN = 2,
        BACKEND = "HDF5Array")
    expect_true(!bsseq:::.isHDF5ArrayBacked(da_with_da_seed))
    expect_true(bsseq:::.isHDF5ArrayBacked(ha_with_ha_seed))
})