tests/testthat/test-print.R

In nanoparquet: Read and Write 'Parquet' Files

test_that("obj_sum.nanoparquet_logical_type", {
  sch <- parquet_schema(
    "INT_8",
    list("DECIMAL", scale = 1, precision = 3, primitive_type = "INT32"),
    list("TIME", is_adjusted_utc = TRUE, unit = "MILLIS"),
    list("TIMESTAMP", is_adjusted_utc = TRUE, unit = "MICROS")
  )
  expect_snapshot({
    lapply(sch$logical_type, obj_sum.nanoparquet_logical_type)
  })
})