test_that("oa2bibliometrix works", {
  skip_on_cran()

  aria_citations <- oa_fetch(
    entity = "works",
    cites = "W2755950973",
    from_publication_date = "2021-01-01",
    to_publication_date = "2021-01-31"
  )

  empty_au <- oa_fetch(entity="works", id="W3125831892")
  w <- rbind(aria_citations, empty_au)

  aria_bibli <- oa2bibliometrix(w)
  expect_s3_class(aria_bibli, "data.frame")
  expect_equal(nrow(w), nrow(aria_bibli))
})