tests/testthat/test-serializeJSON-functions.R

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

#test serializeJSON

# Note about numeric precision
# In the unit tests we use digits=10. Lowever values will result in problems for some datasets
test_that("Serializing Functions", {
  options(keep.source = FALSE)

  objects <- list(
    function(x = 0) {
      x + 1
    },
    function(x) {
      x + 1
    },
    function(x, ...) {
      x + 1
    },
    lm
  )

  #test all but list
  lapply(objects, function(object) {
    fun <- unserializeJSON(serializeJSON(object))
    environment(fun) <- environment(object)
    expect_equal(fun, object)
  })
})