"do_NebulosaPlot: PASS - single feature"
"do_NebulosaPlot: PASS - single feature legend normal"
"do_NebulosaPlot: PASS - single feature legend colorbar"
"do_NebulosaPlot: FAIL - wrong legend type "
"do_NebulosaPlot: FAIL - wrong legend position "
"do_NebulosaPlot: FAIL - wrong font.type"
"do_NebulosaPlot: PASS - single feature distinct dims"
"do_NebulosaPlot: PASS - several, joint"
"do_NebulosaPlot: PASS - several, joint only joint"
"do_NebulosaPlot: WARNING - features as list"
"do_NebulosaPlot: PASS - patchwork title, subtitle and caption"

out <- SCpubr::do_PathwayActivityHeatmap(sample = sample,
testthat::test_that("do_PathwayActivityHeatmap: PASS - minimal input", {
sample$annotation <- sample(c("A", "B"), ncol(sample), replace = TRUE)
group.by = c("orig.ident", "seurat_clusters", "annotation"))
testthat::test_that("do_PathwayActivityHeatmap: PASS - all group.by", {
testthat::test_that("do_PathwayActivityHeatmap: PASS - all split.by 2", {

"do_PathwayActivityHeatmap: PASS - minimal input"
"do_PathwayActivityHeatmap: PASS - all group.by"
"do_PathwayActivityHeatmap: PASS - all split.by 2"

testthat::test_that("do_TFActivityHeatmap: PASS - minimal input", {
out <- SCpubr::do_TFActivityHeatmap(sample = sample,
testthat::test_that("do_TFActivityHeatmap: PASS - all group.by", {

"do_TFActivityHeatmap: PASS - minimal input"
"do_TFActivityHeatmap: PASS - all group.by"

do_TFActivityHeatmap: PASS - minimal input