diff --git a/tests/testthat/test-rsi.R b/tests/testthat/test-rsi.R
index 0c86b130..7a9d23af 100644
--- a/tests/testthat/test-rsi.R
+++ b/tests/testthat/test-rsi.R
@@ -25,11 +25,11 @@ test_that("rsi works", {
 
   library(dplyr)
   # 40 rsi columns
-  expect_identical(septic_patients %>%
-                     mutate_at(vars(peni:rifa), as.character) %>%
-                     lapply(is.rsi.eligible) %>%
-                     as.logical() %>%
-                     sum(),
-                   40)
+  expect_equal(septic_patients %>%
+                 mutate_at(vars(peni:rifa), as.character) %>%
+                 lapply(is.rsi.eligible) %>%
+                 as.logical() %>%
+                 sum(),
+               40)
 
 })