tests/testthat/test-hub_info.R

In hfhub: Hugging Face Hub Interface

skip_on_cran()

test_that("dataset info", {
  info <- hub_dataset_info("dfalbel/cran-packages")
  expect_equal(info$author, "dfalbel")
  expect_true(length(info$siblings) >= 13)
})

test_that("can get ifo for private repositories", {
  skip_if_no_token()

  info <- hub_dataset_info("dfalbel/test-hfhub-dataset")
  expect_equal(info$author, "dfalbel")
})