tests/testthat/test-organization_show.R

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

context("organization_show")

skip_on_cran()
skip_on_ci()

u <- get_test_url()
o <- get_test_oid()

dataset_num <- local({
  check_ckan(u)
  chorg <- tryCatch(check_organization(u, o), error = function(e) e)
  if (inherits(chorg, "error")) {
    ckanr_setup(u, key = Sys.getenv("TEST_API_KEY", ""))
    organization_create(o)
  }
  Sys.sleep(2)
  org <- organization_show(o, url=u)
  res <- crul::HttpClient$new(file.path(u, "organization", org$name))$get()
  res$raise_for_status()
  html <- res$parse("UTF-8")
  tmp <- regmatches(html, regexec("(\\d+) datasets? found", html))
  as.integer(tmp[[1]][2])
})

test_that("organization_show gives back expected class types", {
  check_ckan(u)
  check_organization(u, o)
  a <- organization_show(o, url=u)

  expect_is(a, "ckan_organization")
  expect_is(a[[1]], "list")
  expect_is(a[[1]][[1]]$name, "character")
  expect_equal(as.integer(length(a)), 19L)

  a <- organization_show(o, url=u, include_datasets = TRUE)
  expect_equal(as.integer(a$package_count), dataset_num)
  expect_equal(as.integer(length(a$packages)), dataset_num)
})

test_that("organization_show works giving back json output", {
  check_ckan(u)
  check_organization(u, o)
  b <- organization_show(o, url=u, as='json')
  b_df <- jsonlite::fromJSON(b)
  expect_is(b, "character")
  expect_is(b_df, "list")
  expect_is(b_df$result, "list")
  expect_equal(as.integer(length(b_df$result)), 19L)
})