tests/testthat/test-from_json_conn.R

In yyjsonr: Fast 'JSON', 'NDJSON' and 'GeoJSON' Parser and Generator

test_that("parsing json from connection works", {
  
  js1 <- read_json_file("examples/test.json")
  
  con <- gzfile("examples/test.json.gz")
  js2 <- read_json_conn(gzfile("examples/test.json.gz"))
  close.connection(con)
  
  expect_identical(js1, js2)
})