1 test_useDevel <- function()
3 if (!BiocInstaller:::IS_END_OF_LIFE) {
4 checkException(useDevel(), silent=TRUE)
5 } else if (!BiocInstaller:::IS_DOWNGRADEABLE) {
6 checkException(useDevel(FALSE), silent=TRUE)
8 if (!BiocInstaller:::IS_UPGRADEABLE) {
9 checkException(useDevel(), silent=TRUE)
10 opts <- options(warn=2); on.exit(options(opts))
11 checkException(biocLite("BiocUpgrade"))
15 test_getContribUrl_exist <- function()
17 fun <- BiocInstaller:::.getContribUrl
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)))
25 if (BiocInstaller:::IS_DOWNGRADEABLE) {
26 vers <- BiocInstaller:::DOWNGRADE_VERSION
27 checkTrue(grepl(vers, fun(vers)))