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())))
});