tests/testthat/test-lists.R

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

test_that("test getting list", {
  skip_on_cran()
  test <- "https://bsky.app/profile/smachlis.bsky.social/lists/3l7o5d7b7nl2q"
  expect_type(get_list(test, parse = FALSE), "list")
  expect_s3_class(get_list(test), "tbl_df")
  expect_gte(nrow(get_list(test)), 1L)
  expect_contains(
    colnames(get_list(test)),
    c(
      "uri",
      "subject_did",
      "subject_handle",
      "list_uri",
      "list_cid",
      "list_name"
    )
  )

  get_starter_pack(
    "https://bsky.app/starter-pack/sof14g1l.bsky.social/3lbc4bqetfp22"
  )
})

test_that("test getting list feed", {
  skip_on_cran()
  test <- "https://bsky.app/profile/smachlis.bsky.social/lists/3l7o5d7b7nl2q"
  expect_type(get_list_feed(test, parse = FALSE), "list")
  expect_s3_class(get_list_feed(test), "tbl_df")
  expect_gte(nrow(get_list_feed(test)), 1L)
  expect_contains(
    colnames(get_list_feed(test)),
    c(
      "uri",
      "author_name",
      "text",
      "reply_count",
      "repost_count",
      "like_count",
      "quote_count"
    )
  )
})

test_that("test getting list feed", {
  skip_on_cran()
  test <- "https://bsky.app/starter-pack/sof14g1l.bsky.social/3lbc4bqetfp22"
  expect_s3_class(get_starter_pack(test), "tbl_df")
  expect_gte(nrow(get_starter_pack(test)), 1L)
  expect_contains(
    colnames(get_starter_pack(test)),
    c(
      "user_uri",
      "user_did",
      "user_handle",
      "list_uri",
      "list_cid",
      "list_record_type",
      "list_record_created_at"
    )
  )
})