tests/testthat/test-error_invalid_json.R

test_that("useful error message", {
  input <- rep(c(x_valid, x_invalid), 12)
  verify_output(test_path("data/error_invalid_json.txt"), json2(input))
})

Try the jsontools package in your browser

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

jsontools documentation built on March 22, 2021, 5:06 p.m.