tests/testthat/test-get_citations.R

In Pakillo/grateful: Facilitate Citation of R Packages

test_that("get_citations returns error if wrong arguments provided", {
  expect_error(get_citations(pkgs = NULL, out.dir = tempdir()))
  expect_error(get_citations(pkgs = "renv"))
  expect_error(get_citations(pkgs = "renv", out.dir = tempdir(), bib.file = NA))
  expect_error(get_citations(pkgs = NULL, out.dir = tempdir(), include.RStudio = NULL))

})


test_that("get_citations works", {
  citkeys <- get_citations("grateful", out.dir = tempdir())
  expect_identical(citkeys, list(grateful = "grateful"))


  # citkeys <- get_citations(c("grateful", "knitr", "remotes", "renv", "rmarkdown",
  #                            "rstudioapi", "utils"),
  #                          out.dir = tempdir())
  # expect_identical(citkeys,
  #                  list(
  #                    grateful = "grateful",
  #                    knitr = c("knitr2025", "knitr2015", "knitr2014"),
  #                    remotes = "remotes",
  #                    renv = "renv",
  #                    rmarkdown = c("rmarkdown2024", "rmarkdown2018", "rmarkdown2020"),
  #                    rstudioapi = "rstudioapi",
  #                    utils = "utils"
  #                  ))

})

# test_that("get_citations adds Rstudio citation if asked", {
#   skip_on_ci()
#   skip_on_cran()
#   citkeys <- get_citations(c("renv"), include.RStudio = TRUE, out.dir = tempdir())
#   expect_identical(citkeys, c("renv", "rstudio"))
# })