tests/testthat/test-feed_quotes.R

In bskyr: Interact with 'Bluesky' Social

with_mock_dir('t/f/getquotes', {
  test_that('`bs_get_likes()` works', {
    x <- bs_get_quotes('at://did:plc:5c2r73erhng4bszmxlfdtscf/app.bsky.feed.post/3lc5c5qv72r2w', auth = auth)
    expect_s3_class(x, 'tbl_df')
  })
})