From d5f2048aa29f91985f0df33c1e1e899ab30c318b Mon Sep 17 00:00:00 2001
From: edward-burn <9583964+edward-burn@users.noreply.github.com>
Date: Sun, 24 Nov 2024 15:31:14 +0000
Subject: [PATCH] expect equal

---
 tests/testthat/test-requireDemographics.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/testthat/test-requireDemographics.R b/tests/testthat/test-requireDemographics.R
index 239c5eb..eebd483 100644
--- a/tests/testthat/test-requireDemographics.R
+++ b/tests/testthat/test-requireDemographics.R
@@ -439,7 +439,7 @@ test_that("codelist kept with >1 requirement", {
   cdm$cohort1 <- conceptCohort(cdm = cdm, conceptSet = list(a = 1, b = 2), name = "cohort1")
 
   cdm$cohort2 <- cdm$cohort1 |> requireDemographics(name = "cohort2", minPriorObservation = c(0,3), cohortId = 1)
-  expect_identical(attr(cdm$cohort2, "cohort_codelist") |> dplyr::collect() |> dplyr::arrange(.data$cohort_definition_id), dplyr::tibble(
+  expect_equal(attr(cdm$cohort2, "cohort_codelist") |> dplyr::collect() |> dplyr::arrange(.data$cohort_definition_id), dplyr::tibble(
       cohort_definition_id = as.integer(1:3),
       codelist_name = c("a", "b", "a"),
       concept_id = as.integer(c(1, 2, 1)),