tests/testthat/test_gen_table.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("table1", {

  test_that("gen_table returns data.frame", {

    skip_on_cran()
    skip_on_ci()

    result <- gen_table(name = "61111-0001",
                        startyear = 2023,
                        database = "genesis")

    expect_s3_class(result,
                    class = "data.frame")

    attrs <- attributes(result)

    expect_true("names" %in% names(attrs))
    expect_true("spec" %in% names(attrs))

    })

})

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

test_that("gen_table errors on wrong year parameters", {

  expect_error(gen_table("61111-0004", startyear = 1893, database = "genesis"),
               regexp = "The parameter 'year' has been misspecified")

  expect_error(gen_table("61111-0004", startyear = "1893", database = "genesis"),
               regexp = "The parameter 'year' has been misspecified")

})

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