tests/testthat/test-actors.R

In atrrr: Wrapper for the 'AT' Protocol Behind 'Bluesky'

test_that("search actors", {
  skip_on_cran()
  expect_type(search_user("benguinaudeau.bsky.social", parse = FALSE), "list")
  expect_s3_class(search_user("favstats.eu"), "tbl_df")
  expect_gte(nrow(search_user("JBGruber")), 1L)
})

test_that("user info", {
  skip_on_cran()
  expect_type(get_user_info("benguinaudeau.bsky.social", parse = FALSE), "list")
  expect_s3_class(get_user_info("jbgruber.bsky.social"), "tbl_df")
  expect_gte(nrow(get_user_info("favstats.eu")), 1L)
})

test_that("user info pagination", {
  skip_on_cran()
  actors <- rep(
    c("jbgruber.bsky.social", "benguinaudeau.bsky.social", "favstats.eu"),
    25
  )
  expect_equal(nrow(get_user_info(actor = actors)), 75L)
})