packrat/lib/x86_64-w64-mingw32/3.6.1/jsonlite/tests/testthat/test-toJSON-NULL-values.R

In jmcascalheira/LGMIberiaCluster: Research compendium for the paper "Human adaptations and palaeoenvironmental record during the Last Glacial Maximum in the Iberian Peninsula"

context("toJSON NULL values")

test_that("Test NULL values", {
  namedlist <- structure(list(), .Names = character(0));
  x <- NULL
  y <- list(a=NULL, b=NA)
  z <- list(a=1, b=character(0))

  expect_true(validate(toJSON(x)))
  expect_that(fromJSON(toJSON(x)), equals(namedlist))
  expect_that(toJSON(x), equals("{}"))
  expect_that(toJSON(x, null="list"), equals("{}"))

  expect_true(validate(toJSON(y)))
  expect_that(toJSON(y, null="list"), equals("{\"a\":{},\"b\":[null]}"))
  expect_that(toJSON(y, null="null"), equals("{\"a\":null,\"b\":[null]}"))
  expect_that(fromJSON(toJSON(y, null="null")), equals(y))
  expect_that(fromJSON(toJSON(y, null="list")), equals(list(a=namedlist, b=NA)))

  expect_true(validate(toJSON(z)))
  expect_that(toJSON(z), equals("{\"a\":[1],\"b\":[]}"))
  expect_that(fromJSON(toJSON(z)), equals(list(a=1, b=list())))
});