tests/testthat/test-get_structure.R

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

test_that("Error is returned for invalid table id", {
  expect_message(get_structure("N_187_1","industry"))
}
)

test_that("No error is returned for valid table id", {
  expect_no_message(get_structure("NM_187_1","industry"))
}
)

test_that("A valid table and dimension returns a list", {
  expect_type(get_structure("NM_187_1","industry"), "list")
})

test_that("A invalid dimension returns an error", {
  expect_message(get_structure("NM_23_1","sex"))
})

test_that("An invalid dimension returns custom error", {
  expect_message(get_structure("NM_1024_1","industry"))
})

test_that("No error is returned for valid table id", {
  expect_no_message(get_structure("NM_4_1","age_dur"))
}
)