tests/testthat/test-get_table.R

In sgapi: Aid Querying 'nomis' and 'Office for National Statistics Open Geography' APIs

test_that("Test select can be passed in options", {
  expect_no_error(get_table("NM_1002_1", options = list("geography" = "TYPE265", "time" = "latest")))
})

test_that("Valid table ID returns a vector", {
 expect_no_error(get_table("NM_1_1", options = list("geography" = "TYPE480", "time" = "latest")))
})

test_that("Valid query returning over 25,000 rows sends a warning", {
  expect_warning(get_table("NM_105_1", options = list("time" = "latest")))
})

test_that("Valid table ID returns a vector", {
  expect_no_error(get_table("NM_1002_1", options = list("geography" = "TYPE265", "time" = "latest")))
})

test_that("Valid table ID returns a vector", {
  expect_no_error(get_table(id="NM_1002_1", options = list("geography" = "TYPE265", "time" = "latest"),selection = "GEOGRAPHY_NAME,C_AGE_NAME,OBS_VALUE"))
})

test_that("Valid table ID returns a list", {
  expect_type(get_table(id="NM_1002_1", options = list("geography" = "TYPE265", "time" = "latest"),selection = "GEOGRAPHY_NAME,C_AGE_NAME,OBS_VALUE"),"list")
})

test_that("Invalid table ID returns an error message", {
  expect_error(get_table("A_1_1", options = list("geography" = "TYPE480", "time" = "latest")))
})

test_that("Valid table ID returns a vector", {
  expect_no_error(get_table_link_lookup(lookup_table="LAD22_CTY22_EN_LU",col_name_1="LAD22CD",col_name_2="CTY22CD",col_name_3="LAD22NM",col_name_4="CTY22NM"))
})

test_that("Valid table ID returns a list", {
  expect_type(get_table_link_lookup(lookup_table="LAD22_CTY22_EN_LU",col_name_1="LAD22CD",col_name_2="CTY22CD",col_name_3="LAD22NM",col_name_4="CTY22NM"),"list")
})