packrat/lib/x86_64-w64-mingw32/3.6.1/jsonlite/tests/testthat/test-libjson-escaping.R

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

context("libjson Escaping")

test_that("escaping and parsing of special characters", {

  #create random strings
  mychars <- c('a', 'b', " ", '"', "\\", "\t", "\n", "'", "/", "#", "$");
  createstring <- function(length){
    paste(mychars[ceiling(runif(length, 0, length(mychars)))], collapse="")
  }

  #generate 1000 random strings
  for(i in 1:200){
    x <- createstring(i);
    expect_that(x, equals(fromJSON(toJSON(x))));
    expect_that(x, equals(fromJSON(toJSON(x, pretty=TRUE))));

    y <- setNames(list(123), x)
    expect_that(x, equals(fromJSON(toJSON(x, pretty=TRUE))));
  }

});

test_that("escape solidus", {
  expect_equal(toJSON("foo/bar/baz"), '["foo/bar/baz"]')
  expect_equal(toJSON('<script>evil()</script>'), '["<script>evil()<\\/script>"]')
  expect_equal(toJSON('/', auto_unbox = TRUE), '"/"')
  expect_equal(toJSON('</', auto_unbox = TRUE), '"<\\/"')

  # Mixed encoding
  x <- c('\xFD\xDD\xD6\xF0\n', '\u1F602\n')
  Encoding(x) <- c("latin1", "UTF-8")
  expect_equal(toJSON(x), '["\u00FD\u00DD\u00D6\u00F0\\n","\u1F602\\n"]')

  # Escape solidus by minify
  expect_equal(unclass(minify('["/"]')), '["/"]')
  expect_equal(unclass(minify('["</"]')), '["<\\/"]')
})

test_that("BOM is being ignored", {
  expect_warning(x <- fromJSON('\uFEFF[123]'), "mark")
  expect_equal(x, 123)
  con <- rawConnection(charToRaw('\uFEFF[123]'))
  expect_warning(fromJSON(con), "mark")
  close(con)
  expect_equal(x, 123)
})