tests/testthat/test-error_invalid_json.R

test_that("useful error message", {
  input <- rep(c(x_valid, x_invalid), 12)
  expect_snapshot(error = TRUE, {
    json2(input)
  })
})
mgirlich/jsontools documentation built on March 21, 2023, 9:10 a.m.