Update test to new table

Closes #35
rOpenGov · Nov 27, 2024 · 1a5d986 · 1a5d986
1 parent e170888
commit 1a5d986
Showing 1 changed file with 18 additions and 7 deletions.
diff --git a/tests/testthat/test-dst_value_limit.R b/tests/testthat/test-dst_value_limit.R
@@ -4,12 +4,23 @@
 context("dst_value_limit")
 
 test_that("dst_value_limit returns the correct value.", {
-
-  expect_equal(dst_value_limit(query = list(CIVILSTAND = "*", 
-                                            STATSB = "*", 
-                                            HERKOMST = c("Personer med dansk oprindelse", "Efterkommere")), 
-                               dst_meta = dst_meta("folk1", lang = "da")), 3318)
-
-
+
+  expect_equal(dst_value_limit(query = list(CIVILSTAND = "*",
+                                            ALDER = "*",
+                                            OMRÅDE = c(
+                                              "Hele Landet",
+                                              "København",
+                                              "Dragør",
+                                              "Albertslund",
+                                              "Christiansø",
+                                              "Køge",
+                                              "Glostrup",
+                                              "Faaborg-Midtfyn",
+                                              "Holstebro",
+                                              "Læsø"
+                                            )),
+                               dst_meta = dst_meta("folk1a", lang = "da")), 6350)
+
+
 })