Nothing
#-------------------------------------------------------------------------------
# Test for expected output & API calls ----
#-------------------------------------------------------------------------------
with_mock_dir("catalogue1", {
test_that("gen_catalogue function returns list for tables", {
skip_on_cran()
skip_on_ci()
result <- restatis::gen_catalogue(code = "611*",
detailed = TRUE,
category = "tables",
error.ignore = FALSE)
expect_type(result, type = "list")
})
})
#-------------------------------------------------------------------------------
with_mock_dir("catalogue2", {
test_that("gen_catalogue function returns lists for statistics", {
skip_on_cran()
skip_on_ci()
expect_type(
restatis::gen_catalogue(code = "41141",
detailed = FALSE,
category = "statistics",
error.ignore = FALSE),
type = "list")
})
})
#-------------------------------------------------------------------------------
with_mock_dir("catalogue3", {
test_that("gen_catalogue function returns error if there are no results", {
skip_on_cran()
skip_on_ci()
expect_error(
restatis::gen_catalogue(code = "41141",
detailed = FALSE,
category = "cubes",
error.ignore = FALSE),
regexp = "No object found for your request")
})
})
#-------------------------------------------------------------------------------
with_mock_dir("catalogue4", {
test_that("gen_catalogue function returns list of length 3 if all categories are selected", {
skip_on_cran()
skip_on_ci()
res <- restatis::gen_catalogue(code = "611*",
detailed = FALSE,
error.ignore = TRUE)
expect_equal(length(res), 3)
})
})
with_mock_dir("catalogue5", {
test_that("gen_catalogue function messages on TRUE error.ignore param", {
skip_on_cran()
skip_on_ci()
expect_message(
restatis::gen_catalogue(code = "711*", detailed = TRUE, category = "tables", error.ignore = TRUE),
regexp = "Use 'error.ignore = FALSE' to stop the function at the point where no object could be found.")
})
})
#-------------------------------------------------------------------------------
# Test for errors, warnings, messages of parameters ----
#-------------------------------------------------------------------------------
test_that("gen_catalogue function errors on multiple codes", {
expect_error(
restatis::gen_catalogue(code = c("611*", "711*"), detailed = TRUE, category = "tables"),
regexp = "Parameter 'code' must be a single string.")
})
test_that("gen_catalogue function errors on numeric code param", {
expect_error(
restatis::gen_catalogue(code = 12345, detailed = TRUE, category = "tables"),
regexp = "Parameter 'code' has to be of type 'character'.")
})
#-------------------------------------------------------------------------------
test_that("gen_catalogue function errors on wrong categories", {
expect_error(
restatis::gen_catalogue(code = "611*", detailed = TRUE, category = "variables"),
regexp = "Available categories are tables, statistics, and cubes.")
})
test_that("gen_catalogue function errors on too many categories", {
expect_error(
restatis::gen_catalogue(code = "611*", detailed = TRUE,
category = c("variables", "statistics", "tables", "cubes")),
regexp = "Parameter 'category' has to have a length of 1 to 3.")
})
#-------------------------------------------------------------------------------
test_that("gen_catalogue function errors on numeric detailed param", {
expect_error(
restatis::gen_catalogue(code = "711*", detailed = 1, category = "tables"),
regexp = "Parameter 'detailed' has to be of type 'logical' and of length 1.")
})
with_mock_dir("catalogue6", {
test_that("gen_catalogue function messages on FALSE detailed param", {
skip_on_cran()
skip_on_ci()
expect_message(
restatis::gen_catalogue(code = "711*", detailed = FALSE, category = "tables"),
regexp = "Use 'detailed = TRUE' to obtain the complete output.")
})
})
#-------------------------------------------------------------------------------
test_that("gen_catalogue function errors on numeric sortcriterion param", {
expect_error(
restatis::gen_catalogue(code = "711*", detailed = TRUE, category = "tables", sortcriterion = c(1, 2)),
regexp = "Parameter 'sortcriterion' has to be of type 'character'")
})
#-------------------------------------------------------------------------------
test_that("gen_catalogue function errors on wrong error.ignore param", {
expect_error(
restatis::gen_catalogue(code = "711*", detailed = TRUE, category = "tables", error.ignore = 1),
regexp = "Parameter 'error.ignore' has to be of type 'logical' and of length 1.")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.