avoid spurious test error on slow system

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

Author: smeyer

tests/reg-packages.R

@@ -323,7 +323,8 @@ system.time(status <-
                          out = tf,
                          ## avoid delays/timeouts with a broken network route:
                          env = c("R_REPOSITORIES=NULL"), # (no cyclic dep check)
-                         timeout = 50))# see 5--7 sec; Solaris needed > 30
+                         timeout = 50))# seen 2--7 sec; Solaris needed > 30
+if (!identical(status, 124L)) # avoid "random" failures on slow systems
 stopifnot(exprs = {
     status == 1 # an ERROR now
     is.character(exLines <-