tests/testthat/test-toJSON-AsIs.R

In jsonlite: A Simple and Robust JSON Parser and Generator for R

test_that("Encoding AsIs", {
  expect_equal(toJSON(list(1), auto_unbox = TRUE), "[1]")
  expect_equal(toJSON(list(I(1)), auto_unbox = TRUE), "[[1]]")
  expect_equal(toJSON(I(list(1)), auto_unbox = TRUE), "[1]")

  expect_equal(toJSON(list(x = 1)), "{\"x\":[1]}")
  expect_equal(toJSON(list(x = 1), auto_unbox = TRUE), "{\"x\":1}")
  expect_equal(toJSON(list(x = I(1)), auto_unbox = TRUE), "{\"x\":[1]}")

  expect_equal(toJSON(list(x = I(list(1))), auto_unbox = TRUE), "{\"x\":[1]}")
  expect_equal(toJSON(list(x = list(I(1))), auto_unbox = TRUE), "{\"x\":[[1]]}")
})