tests/testthat/test-bfs_get_sse_metadata.R

In BFS: Get Data from the Swiss Federal Statistical Office

test_that("bfs_get_sse_metadata() works", {
  if (!curl::has_internet()) {
    skip("No internet connection")
  }
  meta <- BFS::bfs_get_sse_metadata(number_bfs = "DF_LWZ_1", language = "en")
  expect_s3_class(meta, "data.frame")
  expect_true(nrow(meta) > 1)
  expect_equal(ncol(meta), 5)
})