EBSeq/BiocInstaller/unitTests/test_BiocUpgrade.R

   1 test_useDevel <- function()
   2 {
   3     if (!BiocInstaller:::IS_END_OF_LIFE) {
   4         checkException(useDevel(), silent=TRUE)
   5     } else if (!BiocInstaller:::IS_DOWNGRADEABLE) {
   6         checkException(useDevel(FALSE), silent=TRUE)
   7     }
   8     if (!BiocInstaller:::IS_UPGRADEABLE) {
   9         checkException(useDevel(), silent=TRUE)
  10         opts <- options(warn=2); on.exit(options(opts))
  11         checkException(biocLite("BiocUpgrade"))
  12     }
  13 }
  14
  15 test_getContribUrl_exist <- function()
  16 {
  17     fun <- BiocInstaller:::.getContribUrl
  18
  19     vers <- BiocInstaller:::BIOC_VERSION
  20     checkTrue(grepl(vers, fun(vers)))
  21     if (BiocInstaller:::IS_UPGRADEABLE) {
  22         vers <- BiocInstaller:::UPGRADE_VERSION
  23         checkTrue(grepl(vers, fun(vers)))
  24     }
  25     if (BiocInstaller:::IS_DOWNGRADEABLE) {
  26         vers <- BiocInstaller:::DOWNGRADE_VERSION
  27         checkTrue(grepl(vers, fun(vers)))
  28     }
  29 }