tests/testthat/test_gen_alternative_terms.R

In restatis: R Wrapper to Access a Wide Range of Germany's Federal Statistical System Databases Based on the GENESIS Web Service RESTful API of the German Federal Statistical Office (Statistisches Bundesamt/Destatis)

#-------------------------------------------------------------------------------
# Test for expected output & API calls ----
#-------------------------------------------------------------------------------

with_mock_dir("terms1", {
  test_that("search terms function returns list", {

    skip_on_cran()
    skip_on_ci()

    result <- gen_alternative_terms("forst*", TRUE, database = "genesis")

    expect_type(result, type = "list")

    attrs <- attributes(result)

    expect_true("Term" %in% names(attrs))
    expect_true("Language" %in% names(attrs))
    expect_true("Pagelength" %in% names(attrs))
    expect_true("Copyright" %in% names(attrs))

  })

})

#-------------------------------------------------------------------------------
# Test for errors, warnings, messages of parameters ----
#-------------------------------------------------------------------------------

test_that("search term errors on multiple codes", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_alternative_terms(term = c("611*", "711*"), database = "genesis"),
    regexp = "Parameter 'term' must be a single string.")

})

test_that("search term errors on too long search term", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_alternative_terms(term = "dies das ananas!", database = "genesis"),
    regexp = "Parameter 'term' cannot consist of more than 15 characters.")

})

test_that("search term errors on wrong parameter type", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_alternative_terms(term = "Krankenhaus", similarity = 1, database = "genesis"),
    regexp = "Parameter 'similarity' has to be of type 'logical'.")

})

test_that("search term errors on wrong parameter type", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_alternative_terms(term = 1992, similarity = TRUE, database = "genesis"),
    regexp = "Parameter 'term' has to be of type 'character'.")

})