tests/testthat/test-openes_keywords.R

In rOpenSpain/opendataes: Interact with the datos.gob.es API to download public data from all of Spain

context("test-openes_keywords")

check_format <- function(kw) {
  expect_is(kw, "tbl_df")
  expect_equal(ncol(kw), 5)
  expect_equal(colnames(kw), c("description", "publisher", "is_readable", "path_id", "url"))
  expect_gt(nrow(kw), 1)
  expect_true(all(!duplicated(kw$description)))
}

test_that("openes_keywords returns correct format", {

  skip_on_ci()
  skip_on_cran()

  kw <- openes_keywords("vivienda", "l01080193") # Ayuntamiento de Barcelona

  check_format(kw)

})

test_that("openes_keywords returns error when wrong publisher", {

  skip_on_cran()

  expect_error(openes_keywords("w", as.character(1e9)),
               "Publisher `1e+09` not available. Please check publishers_available() to get the available ones.",
               fixed = TRUE)
})

test_that("openes_keywords returns correct format when publisher is upper case", {

  skip_on_cran()
  skip_on_ci()

  kw <- openes_keywords("vivienda", "L01080193") # Ayuntamiento de Barcelona
  check_format(kw)
})

test_that("openes_keywords errors when inputs are not of correct length or format", {

  skip_on_cran()

  expect_error(openes_keywords(c("what", "ever"), "l01080193"))
  expect_error(openes_keywords(c("what", "ever"), c("l01080193", "whatever")))
  expect_error(openes_keywords(factor("vivienda"), "l01080193"))
  expect_error(openes_keywords("vivienda", factor("l01080193")))
  expect_error(openes_keywords(factor("vivienda"), factor("l01080193")))

  expect_error(openes_keywords('vivienda', ""),
               "Publisher `` not available. Please check publishers_available() to get the available ones.",
               fixed = TRUE)

  # If there's no keyword, then the request is not found
  expect_error(openes_keywords('', 'l01080193'),
               class = c("http_404",
                         "http_400",
                         "http_error",
                         "error",
                         "condition")
               )
})