## These are tests that require a working Internet connection.
## We attempt to test for that.

if(.Platform$OS.type == "unix" &&
   is.null(nsl("cran.r-project.org"))) q()

# test do_download (and "record" #{packages}):
ap <- available.packages(contrib.url("http://cran.r-project.org"))
## IGNORE_RDIFF_BEGIN
nrow(ap)
## IGNORE_RDIFF_END

# test url connections on http
zz <- url("http://cran.r-project.org/")
readLines(zz)
close(zz)

# and via read.table, test http and ftp.

read.table("http://www.stats.ox.ac.uk/pub/datasets/csb/ch11b.dat")
read.table("ftp://ftp.stats.ox.ac.uk/pub/datasets/csb/ch11b.dat")