kontrola katastrů na prahu jako celek

jlacko · Jul 7, 2024 · 8b30577 · 8b30577
1 parent 46f0007
commit 8b30577
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/tests/testthat/test-3-integrace.R b/tests/testthat/test-3-integrace.R
@@ -58,6 +58,10 @@ test_that("integrace", {
   expect_equal(sum(st_area(subset(volebni_okrsky("high"), ObecKod == "554782"))),
                st_area(subset(obce_polygony(), NAZ_OBEC == "Praha")), tolerance = 1/1000)
 
+  # pražské katastry odpovídají Praze městu
+  expect_equal(sum(st_area(filter(katastry(), NAZ_OBEC == "Praha"))),
+               st_area(subset(obce_polygony(), NAZ_OBEC == "Praha")), tolerance = 1/1000)
+
 
   # Kramářova vila je v Praze / obci, orp, okresu i kraji