tests/testthat/test_encode.R

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

load(file.path(testthat::test_path(), "testdata", "testdata.rdata"))

test_that("Encoding works as expected", {
  expect_true({
    result <- FALSE
    for (i in 1:nrow(data_types)) {
      result <- result || !(
        all(
          r_to_dtype(data_types$r_representation[[i]],
                     data_types$dtype[[i]], na = -1) ==
            data_types$raw_representation[[i]]
        )
      )
    }
    !result
  })
})

test_that("Decoding works as expected", {
  expect_true({
    result <- FALSE
    for (i in 1:nrow(data_types)) {
      result <- result || !(
        all(
          dtype_to_r(data_types$raw_representation[[i]],
                     data_types$dtype[[i]], na = -1) ==
            data_types$r_representation[[i]]
        )
      )
    }
    !result
  })
})

test_that("POSXlt is accepted", {
  expect_true({
    all(r_to_dtype(as.POSIXlt("2000-01-01", tz = "UTC"), "<M8[h]") == 
          as.raw(c(0x38, 0x3, 0x4, 0x0, 0x0, 0x0, 0x0, 0x0)))
  })
})

test_that("units are initialised", {
  expect_identical(
    blosc:::check_dt_units(),
    c("W", "D", "h", "m", "s", "ms", "us", "μs", "ns", "ps", "fs", "as")
  )
})

test_that("unit is extracted correctly from dtype code", {
  expect_identical(blosc:::dtype_to_list_("<m8[ns]")$unit, "ns")
})

test_that("difftime is accepted", {
  expect_true({
    all(r_to_dtype(as.difftime(1, units = "days"), dtype = "<m8[D]") == 
          as.raw(c(0x1, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0)))
  })
})

test_that("difftime is converted when unit is not known by R", {
  expect_true({
    ## Converts raw data in Zarr 'dtype' format to an R type.
    ## The dtype specifies the unit in nanoseconds, a unit
    ## that 'difftime' does not understand. The code should
    ## automatically convert the number to a unit it does
    ## understand
    abs(1 - as.numeric(
      dtype_to_r(
        ## Raw data and dtype '<m8[ns]' is little endian 8 bit integer
        ## reflecting time difference in nanoseconds.
        as.raw(c(0x1, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0, 0x0)), "<m8[ns]"),
      units = "secs") /
        1e+9) < 1e-6
  })
})