Fix keyword in getCranPackageDatabase()

and prove that this function returns exactly
the same as tools::CRAN_package_db()

R/cran_helpers.R

@@ -37,7 +37,14 @@ currentCranVersion <- function(name)
 #' @export
 getCranPackageDatabase <- function()
 {
-  readRDS(file(getUrl("cran_packages", package = "packages.rds")))
+  url <- getUrl("cran_package", package = "packages.rds")
+
+  system.time(db1 <- as.data.frame(readRDS(file(url))))
+
+  #system.time(db2 <- tools::CRAN_package_db())
+  #stopifnot(identical(db1, db2))
+
+  db1
 }
 
 # isOnCran ---------------------------------------------------------------------

tests/testthat/test-function-getCranPackageDatabase.R

@@ -1,35 +1,12 @@
-#
-# This file was generated by kwb.test::create_test_files(), 
-# launched by hsonne on 2024-05-02 17:58:26.
-# Please modify the dummy functions so that real cases are
-# tested. Then, delete this comment.
-#
+#library(testthat)
 
 test_that("getCranPackageDatabase() works", {
 
   f <- kwb.package::getCranPackageDatabase
 
-  expect_error(
-    f()
-    # No such element in list 'urls':
-# - 'cran_packages'
-# Available elements (sorted):
-# - 'cached_desc'
-# - 'cran'
-# - 'cran_archive'
-# - 'cran_archive_file'
-# - 'cran_contrib'
-# - 'cran_package'
-# - 'cran_package_file'
-# - 'cran_rstudio'
-# - 'github_api'
-# - 'github_desc'
-# - 'github_raw'
-# - 'github_releases'
-# - 'github_tags'
-# - 'mran_snapshot'
-# - 'package_filename'
-# 
-  )
+  result <- f()
 
+  expect_s3_class(result, "data.frame")
+  expect_true(all(c("Package", "Depends", "Imports") %in% names(result)))
+
 })