From 41e1e6b0b2ad27cdd0c1a7f4a41cf8cc14edd6ad Mon Sep 17 00:00:00 2001 From: HediaTnani Date: Mon, 8 Jan 2024 15:01:36 -0500 Subject: [PATCH] use expect_identical instead of expect_equal --- tests/testthat/test-getDegTx.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/tests/testthat/test-getDegTx.R b/tests/testthat/test-getDegTx.R index 1a782f1..d4b86a0 100644 --- a/tests/testthat/test-getDegTx.R +++ b/tests/testthat/test-getDegTx.R @@ -65,6 +65,6 @@ test_that("getDegTx works with original and altered row names", { rownames(altered_covComb_tx_deg) <- gsub("\\..*", "", rownames(covComb_tx_deg)) altered_results <- getDegTx(altered_covComb_tx_deg,sig_transcripts =select_transcripts("cell_component")) rownames(altered_results) <- rownames(original_results) - # Test if two objects equal - expect_equal(original_results, altered_results) + # Test if two objects identical + expect_identical(original_results, altered_results) }) \ No newline at end of file