tests/testthat/test-integer-arrays.R

In fastpng: Read and Write PNG Files with Configurable Decoder/Encoder Options

test_that("integer arrays work", {

  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # 8 bit
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  for (im in test_image$array_int) {
    expect_identical(
      write_png(im) |> read_png(type = 'array', array_type = 'int'),
      im
    )
  }
  
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  # 16 bit
  #~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  for (im in test_image$array_int_16bit) {
    expect_identical(
      write_png(im, bits = 16) |> read_png(type = 'array', array_type = 'int'),
      im
    )
  }
  
  
})