tests/testthat/test-onload.R

In ropensci/geojsonio: Convert Data from and to 'GeoJSON' or 'TopoJSON'

test_that("onload for turf-extent worked", {
  skip_on_cran()

  obj_names <- c(
    "eval", "assign", "validate", "call",
    "reset", "source", "console", "get"
  )
  expect_s3_class(ext, "V8")
  expect_true(all(obj_names %in% ls(ext)))
  expect_true(any(grepl("extent", ext$get(leaflet::JS("Object.keys(global)")))))
})