EBSeq/BiocInstaller/unitTests/test_biocinstallRepos.R

   1 repos <- biocinstallRepos()
   2
   3 test_biocinstallRepos_named_repositories <- function()
   4 {
   5
   6     allOS <- c("BioCsoft", "CRAN", "BioCann", "BioCexp", "BioCextra")
   7     windowsOnly <- "CRANextra"
   8
   9     checkTrue(all(allOS %in% names(repos)))
  10     if (.Platform$OS.type == "windows")
  11     {
  12         checkTrue(windowsOnly %in% names(repos))
  13     } else {
  14         checkTrue(!windowsOnly %in% names(repos))
  15     }
  16
  17 }
  18
  19 test_biocinstallRepos_noNA_repositories <- function()
  20 {
  21     checkTrue(!any(is.na(repos)))
  22 }
  23
  24 test_biocinstallRepos_order <- function()
  25 {
  26     checkIdentical("BioCsoft", names(repos)[[1]])
  27 }