test(census_geo_api_names): add test with ZCTA for 2010

kosukeimai · Apr 2, 2024 · 76953c2 · 76953c2
1 parent c18eb4f
commit 76953c2
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/tests/testthat/test-get_census_data.R b/tests/testthat/test-get_census_data.R
@@ -67,5 +67,14 @@ if(Sys.getenv("CENSUS_API_KEY") != "") {
     ))
     expect_named(r$DC, c("state", "age", "sex", "year", "zcta"))
     expect_true(all(r$DC$zcta$state == "DC"))
+
+    r <- suppressMessages(get_census_data(
+      key = NULL,
+      state = "DC",
+      census.geo = "zcta",
+      year = "2010"
+    ))
+    expect_named(r$DC, c("state", "age", "sex", "year", "zcta"))
+    expect_true(all(r$DC$zcta$state == "DC"))
   })
 }