tests/testthat/test-GeoJsonObject.r

In naturalis/nbaR: R Package Client for the Netherlands Biodiversity API

context("Testing class GeoJsonObject")

# Make a list with random arguments for all fields in the class
args <- list()
args[["crs"]] <- Crs$new()
randomList <- lapply(
  1:sample(5:10, 1),
  function(x) paste(sample(letters, sample(1:10, 1)), collapse = "")
)
args[["bbox"]] <- randomList

# make GeoJsonObject object without and with args
objEmpty <- GeoJsonObject$new()
objRand <- do.call(GeoJsonObject$new, args)

test_that("Constructor works", {
  expect_is(objEmpty, "GeoJsonObject")
  expect_is(objRand, "GeoJsonObject")
})

test_that("toList works", {
  expect_is(objEmpty$toList(), "list")
  expect_is(objRand$toList(), "list")
})

test_that("fromList works", {
  obj <- GeoJsonObject$new()
  obj$fromList(objRand$toList())
  # expect_equal(obj, objRand)
  expect_is(obj, "GeoJsonObject")
})

test_that("toJSONString works", {
  expect_is(objEmpty$toJSONString(), "json")
  expect_true(objEmpty$toJSONString() != "")
  expect_is(objRand$toJSONString(), "json")
  expect_true(objRand$toJSONString() != "")
})

test_that("fromJSONString works", {
  obj <- GeoJsonObject$new()
  obj$fromJSONString(objRand$toJSONString())
  # expect_equal(obj, objRand)
  expect_is(obj, "GeoJsonObject")
})

test_that("print works", {
  obj <- GeoJsonObject$new()
  obj$fromJSONString(objRand$toJSONString())
  ## check that the print method doesn't error
  expect_error(obj$print(), NA)
})