Add tests

Author: csoneson

tests/testthat/test_plotPairs.R

@@ -111,6 +111,22 @@ test_that("plotPairs works with correct arguments", {
                               corSizeAdd = 2, pointSize = 0.1, pointAlpha = 0.3,
                               colorByCorrelation = TRUE, corrColorRange = NULL, 
                               addIdentityLine = FALSE), "ggmatrix")
+    
+    ## scattermore
+    expect_s3_class(plotPairs(se = se, selAssay = "counts", doLog = TRUE,
+                              pseudocount = 1, corMethod = "pearson",
+                              histBreaks = 40, pointsType = "scattermore", corSizeMult = 5,
+                              corSizeAdd = 2, pointSize = 3.5, pointAlpha = 0.3,
+                              colorByCorrelation = TRUE, corrColorRange = NULL, 
+                              addIdentityLine = FALSE), "ggmatrix")
+    
+    ## scattermost
+    expect_s3_class(plotPairs(se = se, selAssay = "counts", doLog = TRUE,
+                              pseudocount = 1, corMethod = "pearson",
+                              histBreaks = 40, pointsType = "scattermost", corSizeMult = 5,
+                              corSizeAdd = 2, pointSize = 3.5, pointAlpha = 0.3,
+                              colorByCorrelation = TRUE, corrColorRange = NULL, 
+                              addIdentityLine = FALSE), "ggmatrix")
 
     ## Change font size to correlation relation
     expect_s3_class(plotPairs(se = se, selAssay = "counts", doLog = TRUE,

tests/testthat/tests-utils.R

@@ -92,3 +92,20 @@ expect_true(.assertVector(LETTERS[1:2], type = "character", validValues = LETTER
 test <- "text"
 expect_error(.assertVector(x = test, type = "numeric"),
              "'test' must be of class 'numeric")
+
+## -------------------------------------------------------------------------- ##
+## Checks, .assertPackagesAvailable
+## -------------------------------------------------------------------------- ##
+test_that(".assertPackagesAvailable works", {
+    testfunc <- function(...) .assertPackagesAvailable(...)
+    expect_error(testfunc(1L))
+    expect_error(testfunc("test", "error"))
+    expect_error(testfunc("test", c(TRUE, FALSE)))
+    
+    expect_true(testfunc("base"))
+    expect_true(testfunc("githubuser/base"))
+    expect_true(testfunc(c("base", "methods")))
+    expect_error(testfunc(c("error", "error2")), "BiocManager")
+    expect_error(testfunc("error1", suggestInstallation = FALSE), "installed.\n$")
+    rm(testfunc)
+})