Update tests/testthat/test-duplicates.R

Co-authored-by: j-smola <[email protected]>
gdrplatform · Oct 14, 2024 · 4adf661 · 4adf661
1 parent 8f09b74
commit 4adf661
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/tests/testthat/test-duplicates.R b/tests/testthat/test-duplicates.R
@@ -73,7 +73,7 @@ test_that("[has|get]_assay_dt_duplicated_rows works as expected", {
 
   # combo data
   cdata <- get_synthetic_data("finalMAE_combo_matrix_small")
-  cscores_data <- convert_se_assay_to_dt(cdata[[1]], "scores")
+  cscores_data <- convert_se_assay_to_dt(cdata[[get_supported_experiments("combo")]], "scores")
   cscores_dup_data <- rbind(cscores_data, cscores_data[1:10, ])
   expect_false(has_assay_dt_duplicated_rows(cscores_data))
   expect_true(has_assay_dt_duplicated_rows(cscores_dup_data))