tests/testthat/test-changes.R

In ropensci/ckanr: Client for the Comprehensive Knowledge Archive Network ('CKAN') API

context("changes")

skip_on_cran()

u <- get_test_url()
check_ckan(u)

test_that("changes gives back expected class types", {
  cat(u, sep = "\n")
  a <- changes(url = u)

  expect_is(a, "list")
  expect_is(a[[1]], "list")
  expect_is(a[[1]]$user_id, "character")
  expect_is(a[[1]]$data, "list")
})

test_that("changes works giving back json output", {
  b <- changes(url = u, as = 'json')
  b_df <- jsonlite::fromJSON(b)

  expect_is(b, "character")
  expect_is(b_df, "list")
  expect_is(b_df$result, "data.frame")
})

test_that("changes fails correctly", {

  expect_error(changes("adf"), "offset Invalid integer")
  expect_error(changes(limit = "Adf"), "limit Invalid integer")
  expect_error(changes("adf", url = "http://www.google.com"),
               regexp = "404")
})