tests/testthat/test-rdeps.R

In mpadge/rdeps: Automatically Obtain Source Code for all Dependencies of a given R Package

has_internet <- curl::has_internet ()

require (testthat)

# test_all used to switch off tests on CRAN
test_all <- (identical (Sys.getenv ("MPADGE_LOCAL"), "true") |
             identical (Sys.getenv ("TRAVIS"), "true"))
             #identical (Sys.getenv ("APPVEYOR"), "True"))

# This has to be explicitly set here:
r <- getOption("repos")
r["CRAN"] <- "http://cran.r-project.org" 
options(repos=r)

context ('the tests')

test_that ('query-construction', {
    if (test_all)
    {
        val <- get_rdeps ("osmdata")
        expect_true (is.vector (val))
        expect_is (val, "character")
        expect_true (length (val) >= 2)
    }
})