inst/tinytest/test_validation.R

if (RcppSimdJson:::.unsupportedArchitecture()) exit_file("Unsupported chipset")

library(RcppSimdJson)

jsonfiles <- list.files("../jsonexamples", pattern="\\.json$", recursive=TRUE, full.names=TRUE)

expect_true(length(jsonfiles) >= 23)

sapply(jsonfiles, function(jf) expect_true(validateJSON(jf), info=jf))

expect_error(validateJSON("../jsonexamples/amazon_cellphones.ndjson"))

Try the RcppSimdJson package in your browser

Any scripts or data that you put into this service are public.

RcppSimdJson documentation built on May 31, 2023, 5:31 p.m.