tests/testthat/test-pretty.R

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

test_that("pretty works with json inputs", {
  skip_on_cran()

  a <- geojson_json(c(-99.74, 32.45)) %>% pretty()
  expect_s3_class(a, "json")
  expect_type(unclass(a), "character")
  expect_false(identical(a, geojson_json(c(-99.74, 32.45), pretty = TRUE)))
})

test_that("pretty fails correctly with geo_list inputs", {
  skip_on_cran()

  expect_error(
    geojsonio::pretty(geojson_list(c(-99.74, 32.45))),
    "No method for geo_list"
  )
})