Fix test to match description

Bisaloo · Dec 5, 2024 · 6f8cd30 · 6f8cd30
1 parent ae01cbb
commit 6f8cd30
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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)
 
   }