From 426988b06d332f7596ee6f836898f02ea7c42e26 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 18 Mar 2026 01:03:38 +0000
Subject: [PATCH 1/2] Initial plan


From 170e50c05c2d23b4948e6b6986f42194fe673ca8 Mon Sep 17 00:00:00 2001
From: "copilot-swe-agent[bot]" <198982749+Copilot@users.noreply.github.com>
Date: Wed, 18 Mar 2026 01:04:56 +0000
Subject: [PATCH 2/2] Add else branch to getParamCCP() with stop() for unknown
 datasets

Co-authored-by: phoman14 <21298645+phoman14@users.noreply.github.com>
---
 tests/testthat/helper-Compare_Cell_Populations.R | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/tests/testthat/helper-Compare_Cell_Populations.R b/tests/testthat/helper-Compare_Cell_Populations.R
index 7699a99..3bc5d49 100644
--- a/tests/testthat/helper-Compare_Cell_Populations.R
+++ b/tests/testthat/helper-Compare_Cell_Populations.R
@@ -41,6 +41,11 @@ getParamCCP <- function(data) {
     sample.column <- "orig.ident"
     counts.type <- "Frequency"
     group.order <- NULL
+  } else {
+    stop(paste0(
+      "Unknown dataset '", data, "'. ",
+      "Supported datasets are: TEC, Chariou, PBMC, NSCLC, BRCA."
+    ))
   }
   
   return(