packrat/lib/x86_64-w64-mingw32/3.6.1/jsonlite/tests/testthat/test-serializeJSON-functions.R

In jmcascalheira/LGMIberiaCluster: Research compendium for the paper "Human adaptations and palaeoenvironmental record during the Last Glacial Maximum in the Iberian Peninsula"

#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){
    expect_that(unserializeJSON(serializeJSON(object)), equals(object))   
  });
  
  #test all in list
  expect_that(unserializeJSON(serializeJSON(objects)), equals(objects))
});