tests/testthat/test-json_complexity.R

In jeremystan/tidyjson: Tidy Complex 'JSON'

test_that("works for arrays", {

  json <- c('[]', '[1]', '[1, 2]')
  expect_identical(
    json %>% json_complexity %>% `$`(complexity),
    c(0L, 1L, 2L)
  )

}
)

test_that("works for objects", {

  json <- c('{}', '{"k":"v"}', '{"k1":"v1", "k2":"v2"}')
  expect_identical(
    json %>% json_complexity %>% `$`(complexity),
    c(0L, 1L, 2L)
  )

}
)

test_that("works for scalars", {

  json <- c('[1, "a", true]')
  expect_identical(
    json %>% gather_array %>% json_complexity %>% `$`(complexity),
    rep(1L, 3)
  )

}
)

test_that("works for emtpy objects", {

  json <- character(0)
  expect_identical(
    json %>% json_complexity %>% `$`(complexity),
    integer(0)
  )

  json <- c('[null, [], {}]')
  expect_identical(
    json %>% gather_array %>% json_complexity %>% `$`(complexity),
    rep(0L, 3)
  )

}
)

test_that("works for nested JSON", {

  json <- c('{"name": [1, 2]}', '{"name1": [1], "name2": [1, 2]}',
            '{"name1": [1, 2], "name2": true, "name3": false}')
  expect_identical(
    json %>% json_complexity %>% `$`(complexity),
    c(2L, 3L, 4L),
  )

}
)