test expanded plotScoreHeatmap color control

SingleR-inc · Jan 2, 2024 · 56d83d9 · 56d83d9
1 parent bacf95c
commit 56d83d9
Showing 1 changed file with 6 additions and 1 deletion.
diff --git a/tests/testthat/test-heatmap.R b/tests/testthat/test-heatmap.R
@@ -63,12 +63,17 @@ test_that("heatmap - can pass excess pheatmap::pheatmap parameters through plotS
         5)
 })
 
-test_that("heatmap scores color can be adjusted when 'normalize = FALSE'", {
+test_that("heatmap scores color can be adjusted, regardless of 'normalize' value", {
     expect_equal(
         plotScoreHeatmap(results = pred, silent = TRUE, return.data = TRUE,
             normalize = FALSE,
             color = colorRampPalette(c("red", "blue"))(33))$color,
         colorRampPalette(c("red", "blue"))(33))
+    expect_equal(
+        plotScoreHeatmap(results = pred, silent = TRUE, return.data = TRUE,
+            normalize = TRUE,
+            color = colorRampPalette(c("red", "blue"))(33))$color,
+        colorRampPalette(c("red", "blue"))(33))
 })
 
 test_that("heatmap is adjusted properly when 'labels.use' yields 1 or 0 labels", {