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