tests/testthat/test_gen_modified_data.R

In CorrelAid/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("modified1", {
  test_that("gen_modified_data function returns list", {

    skip_on_cran()
    skip_on_ci()

    expect_type(gen_modified_data(code = "61111", date = "01.01.2022", database = "genesis"),
                type = "list")

  })

})

with_mock_dir("modified2", {
  test_that("gen_modified_data function returns message", {

    skip_on_cran()
    skip_on_ci()

    expect_message(
      gen_modified_data(code = "61111", database = "genesis"),
      regexp = "Please note that per default the current system date is used.")

  })

})

#-------------------------------------------------------------------------------

with_mock_dir("modified3", {
  test_that("gen_modified_data function returns list with attributes", {

    skip_on_cran()
    skip_on_ci()

    result <- gen_modified_data(code = "61111", date = "01.01.2022", database = "genesis")

    attrs <- attributes(result)

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

  })

})

with_mock_dir("modified4", {

  test_that("gen_modified_data function warns if there is a non-zero status code", {

    skip_on_cran()
    skip_on_ci()

    expect_message(object = gen_modified_data(code = "61234",
                                              date = "01.01.2022",
                                              database = "genesis"),
                   regexp = "No modified objects found for your code and date in genesis")

  })

})

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

test_that("gen_modified_data errors on misspecified dates", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_modified_data(code = "61111", date = "1.1.2022"),
  regexp = "it has to be of length 1 and format DD.MM.YYYY")

})

test_that("gen_modified_data errors on misspecified dates", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_modified_data(code = "61111", date = 23456),
  regexp = "'date', it has to be of type 'character'.")

})

#-------------------------------------------------------------------------------

test_that("gen_modified_data errors on multiple codes", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_modified_data(code = c("611*", "711*")),
  regexp = "Parameter 'code' must be a single string.")

})

test_that("gen_modified_data function errors on numeric code param", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_modified_data(code = 12345),
  regexp = "Parameter 'code' has to be of type 'character'.")

})

#-------------------------------------------------------------------------------

test_that("gen_modified_data function errors on wrong type value", {

  skip_on_cran()
  skip_on_ci()

  expect_error(
    gen_modified_data(code = "12345", type = "diesdasananas"),
  regexp = "'arg' should be one of")

})