R Under development (unstable) (2024-11-28 r87392 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> 
> library(RcppAPT)
> 
> if (suitable()) {
+ 
+     ## buildDepends
+     bd <- buildDepends("r-cran-rcpp$")
+     ## this comes back as zero length if the (optional !!)
+     ## 'deb-src' entries are commented out so not enforcing this
+     #stopifnot(length(bd) > 0)               	# conservative test
+     #stopifnot(is.element("r-base-dev", bd))		# key component
+ 
+     ## dumpPackages
+     txt <- capture.output(res <- dumpPackages("littler"))
+     stopifnot(res)
+     stopifnot(length(txt) > 10)
+ 
+     ## getPackages
+     pkg <- getPackages("^r-(base|doc)-")
+     stopifnot(inherits(pkg, "data.frame"))
+ 
+     ## hasPackages
+     res <- hasPackages(c("r-base-core", "somethingThatDoesNotExist"))
+     stopifnot(any(res))
+ 
+     ## reverseDepends
+     rd <- reverseDepends("r-cran-rcpp$")
+     stopifnot(inherits(rd, "data.frame"))
+     stopifnot(nrow(rd) > 5)                      # conservative test (ie get 11 as Nov 2016)
+ 
+     ## showSrc
+     txt <- capture.output(res <- showSrc("r-cran-rcpp"))
+     ## this comes back as FALSE and zero length if the (optional !!)
+     ## 'deb-src' entries are commented out so not enforcing this
+     #stopifnot(res)
+     #stopifnot(length(txt) > 10)
+ 
+ }
> 
> proc.time()
   user  system elapsed 
   0.18    0.04    0.23