packrat/lib/x86_64-w64-mingw32/3.6.1/jsonlite/tests/testthat/test-toJSON-Date.R

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

context("toJSON Date")
object <- as.Date("1985-06-18");

test_that("Encoding Date Objects", {
  expect_that(toJSON(object), equals("[\"1985-06-18\"]"));
  expect_that(toJSON(object, Date="ISO8601"), equals("[\"1985-06-18\"]"));  
  expect_that(toJSON(object, Date="epoch"), equals("[5647]"));
  expect_that(toJSON(object, Date="adsfdsfds"), throws_error("should be one of"));  
});

test_that("Encoding Date Objects in a list", {
  expect_that(toJSON(list(foo=object)), equals("{\"foo\":[\"1985-06-18\"]}"));
  expect_that(toJSON(list(foo=object), Date="ISO8601"), equals("{\"foo\":[\"1985-06-18\"]}"));  
  expect_that(toJSON(list(foo=object), Date="epoch"), equals("{\"foo\":[5647]}"));
  expect_that(toJSON(list(foo=object), Date="adsfdsfds"), throws_error("should be one of"));  
});

test_that("Encoding Date Objects in a Data frame", {
  expect_that(toJSON(data.frame(foo=object)), equals("[{\"foo\":\"1985-06-18\"}]"));
  expect_that(toJSON(data.frame(foo=object), Date="ISO8601"), equals("[{\"foo\":\"1985-06-18\"}]"));  
  expect_that(toJSON(data.frame(foo=object), Date="epoch"), equals("[{\"foo\":5647}]"));
  expect_that(toJSON(data.frame(foo=object), Date="adsfdsfds"), throws_error("should be one of"));  
});