Combine the unit test to check if output is a matrix

LieberInstitute · Jan 16, 2024 · 7c7bd5f · 7c7bd5f
1 parent 27d7935
commit 7c7bd5f
Showing 1 changed file with 1 addition and 5 deletions.
diff --git a/tests/testthat/test-get_qsvs.R b/tests/testthat/test-get_qsvs.R
@@ -11,11 +11,7 @@ test_that("length of qsv rownames is the same as number of samples", {
 })
 
 test_that("output is a matrix", {
-    expect_equal(class(get_qsvs(qsv, k))[1], "matrix")
-})
-
-test_that("output is an array", {
-    expect_equal(class(get_qsvs(qsv, k))[2], "array")
+    expect_equal(class(get_qsvs(qsv, k)), c("matrix", "array"))
 })
 
 test_that("k is lower than 0 throws an error", {