tests/testthat/test_compress.R

In blosc: Compress and Decompress Data Using the 'BLOSC' Library

test_that("Data can be compressed and decompressed", {
  expect_true({
    volcano_compressed <- blosc_compress(volcano, typesize = 2, dtype = "<f2")
    volcano_reconstruct <- blosc_decompress(volcano_compressed, dtype = "<f2")
    object.size(volcano) > object.size(volcano_compressed) &&
      all(volcano_reconstruct == volcano)
  })
})

test_that("blosc_info lists information correctly", {
  expect_true({
    volcano_compressed <- blosc_compress(volcano, typesize = 2,
                                         dtype = "<f2", compressor = "lz4")
    bi <- blosc_info(volcano_compressed)
    bi$`Type size in bytes` == 2 &&
      bi$Compressor == "LZ4" &&
      bi$`Uncompressed size in bytes` == 10614
  })
})