tests/test-cran/test-json.R

In xfun: Supporting Functions for Packages Maintained by 'Yihui Xie'

library(testit)

assert("tojson() works", {
  (tojson(NULL) %==% "null")
  (tojson(list()) %==% "{}")
  (has_error(tojson(Sys.Date())))
  (has_error(tojson(NA)))
  (tojson(NA_character_) %==% '"NA"')
  (tojson(1:10) %==% "[1, 2, 3, 4, 5, 6, 7, 8, 9, 10]")
  (tojson(TRUE) %==% "true")
  (tojson(FALSE) %==% "false")

  x = list(a = 1, b = list(c = 1:3, d = "abc"))
  out = '{\n"a": 1,\n"b": {\n"c": [1, 2, 3],\n"d": "abc"\n}\n}'
  (tojson(x) %==% out)

  x = list(c("a", "b"), 1:5, TRUE)
  out = '[["a", "b"], [1, 2, 3, 4, 5], true]'
  (tojson(x) %==% out)

  (tojson(list('"a b"' = 'quotes "\'')) %==% '{\n"\\"a b\\"": "quotes \\"\'"\n}')

  JS = function(x) structure(x, class = "JS_EVAL")
  x = list(a = 1:5, b = JS("function() {return true;}"))
  out = '{\n"a": [1, 2, 3, 4, 5],\n"b": function() {return true;}\n}'
  (tojson(x) %==% out)
})