From 6f8cd3097b081f4fba5f8cec4fedefbcea619347 Mon Sep 17 00:00:00 2001
From: Hugo Gruson <10783929+Bisaloo@users.noreply.github.com>
Date: Thu, 5 Dec 2024 17:38:48 +0100
Subject: [PATCH] Fix test to match description

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

diff --git a/tests/testthat/test-list_countries.R b/tests/testthat/test-list_countries.R
index 0829f70..ad20510 100644
--- a/tests/testthat/test-list_countries.R
+++ b/tests/testthat/test-list_countries.R
@@ -26,7 +26,7 @@ test_that("age_df_countries() and contact_df_countries() provide data for all li
       age_df_countries(list_countries(data_source = s))
     )
 
-    expect_identical(nrow(contacts), nrow(popsizes) * 20L)
+    expect_setequal(contacts$country, popsizes$country)
 
   }