inst/unitTests/test_biocinstallRepos.R

In BiocInstaller: Install/Update Bioconductor, CRAN, and github Packages

repos <- biocinstallRepos()

test_biocinstallRepos_named_repositories <- function()
{

    allOS <- c("BioCsoft", "CRAN", "BioCann", "BioCexp")
    checkTrue(all(allOS %in% names(repos)))
   
}

test_biocinstallRepos_noNA_repositories <- function()
{
    checkTrue(!any(is.na(repos)))
}

test_biocinstallRepos_order <- function()
{
    checkIdentical("BioCsoft", names(repos)[[1]])
}