tests/testthat/test_01_bibliography.R

In eurostat: Tools for Eurostat Open Data

test_that("Bibentry gives correct results", {
  skip_on_cran()
  skip_if_offline()
  expect_equal(
    class(get_bibentry(
      code = c("sts_inpr_a", "nama_10_gdp"),
      keywords = list(
        c("production", "industry"),
        c("GDP")
      ),
      format = "Biblatex"
    )),
    "Bibtex"
  )
  expect_error(
    get_bibentry(code = 123456)
  )
  expect_warning(
    get_bibentry(
      code = c("sts_inpr_a", "nama_10_gdp"),
      keywords = list(
        c("production", "industry"),
        c("GDP")
      ),
      format = "character"
    )
  )
})