cyclic dependency check not relevant for test packages

git-svn-id: https://svn.r-project.org/R/trunk@84602 00db46b3-68df-0310-9c12-caf00c1e9a41

src/library/tools/R/QC.R

@@ -3115,10 +3115,9 @@ function(dir, force_suggests = TRUE, check_incoming = FALSE,
     ## and we cannot have cycles
     ## this check needs a package db from repository(s), so
     repos <- getOption("repos")
-    if(any(grepl("@CRAN@", repos)))
+    if(any(repos == "@CRAN@"))
         repos <- .get_standard_repository_URLs()
-    if(!any(grepl("@CRAN@", repos))) {
-        ## Not getting here should no longer be possble ...
+    if(length(repos)) {
         available <- utils::available.packages(repos = repos)
         ad <- .check_dependency_cycles(db, available)
         pkgname <- db[["Package"]]
@@ -8047,7 +8046,7 @@ function(dir, localOnly = FALSE, pkgSize = NA)
 
     ## If a package has a FOSS license, check whether any of its strong
     ## recursive dependencies restricts use.
-    if(!localOnly && foss) {
+    if(foss) {
         available <-
             utils::available.packages(utils::contrib.url(urls, "source"),
                                       filters = c("R_version", "duplicates"))

tests/reg-packages.R

@@ -20,7 +20,10 @@ showProc.time <- local({ ## function + 'pct' variable
 	    final)
     }
 })
-options(width=120)
+options(
+    width = 120
+  , repos = character()  # tests here should work without remote access
+)
 
 ## PR 1271  detach("package:base") crashes R.
 tools::assertError(detach("package:base"))