tests/testthat/test-discog.R

In repurrrsive: Examples of Recursive Lists and Nested or Split Data Frames

test_that("discog hasn't changed", {
  expect_snapshot_value(discog, style = "json2")
})

test_that("discog JSON gives rise to same list as the built-in", {
  skip_if_not_installed("jsonlite")
  expect_identical(
    discog,
    jsonlite::fromJSON(discog_json(), simplifyVector = FALSE)
  )
})