Updated samtools to 0.1.19

[rsem.git] / EBSeq / BiocInstaller / unitTests / test_biocinstallRepos.R

diff --git a/EBSeq/BiocInstaller/unitTests/test_biocinstallRepos.R b/EBSeq/BiocInstaller/unitTests/test_biocinstallRepos.R
new file mode 100644 (file)
index 0000000..e6fb520
--- /dev/null
+++ b/EBSeq/BiocInstaller/unitTests/test_biocinstallRepos.R
@@ -0,0 +1,27 @@
+repos <- biocinstallRepos()
+
+test_biocinstallRepos_named_repositories <- function()
+{
+
+    allOS <- c("BioCsoft", "CRAN", "BioCann", "BioCexp", "BioCextra")
+    windowsOnly <- "CRANextra"
+
+    checkTrue(all(allOS %in% names(repos)))
+    if (.Platform$OS.type == "windows")
+    {
+        checkTrue(windowsOnly %in% names(repos))
+    } else {
+        checkTrue(!windowsOnly %in% names(repos))
+    }
+   
+}
+
+test_biocinstallRepos_noNA_repositories <- function()
+{
+    checkTrue(!any(is.na(repos)))
+}
+
+test_biocinstallRepos_order <- function()
+{
+    checkIdentical("BioCsoft", names(repos)[[1]])
+}