tests/testthat/test_HDF5_utils.R
866ab76f
 test_that(".isHDF5ArrayBacked()", {
     matrix <- matrix(1:10, ncol = 2)
3e0adc42
     da <- DelayedArray(matrix)
866ab76f
     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))
 })