tests/testthat/test-serializeJSON-functions.R

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

#test serializeJSON

context("Serializing Functions")

# 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_that(fun, equals(object))
  })
})