tests/testthat/test-i14y_get_codelist.R

In I14Y: Search and Get Data from the I14Y Interoperability Platform of Switzerland

test_that("i14y_get_codelist() returns a none empty data.frame", {
  if (!curl::has_internet()) {
    skip("No internet connection")
  }
  df <- i14y_get_codelist(
    id = "08d94604-e058-62a2-aa25-53f84b974201" # for DV_NOGA_DIVISION
  )
  expect_s3_class(df, "data.frame")
  expect_true(nrow(df) > 1)
})