tests/testthat/test_get_metadata.R

In evanodell/nomisr: Access 'Nomis' UK Labour Market Data

library(nomisr)
context("nomis_get_metadata")

test_that("nomis_get_metadata return expected format", {
  skip_on_cran()

  expect_error(nomis_get_metadata(), "The dataset ID must be specified.")

  b <- nomis_get_metadata("NM_1_1", "item", search = "*married*")
  expect_equal(nrow(b), 1)
  expect_true(tibble::is_tibble(b))

  d <- nomis_get_metadata(
    id = "NM_893_1", concept = "C_AHTHUK11", type = "1"
  )
  expect_equal(nrow(d), 1)
  expect_true(tibble::is_tibble(d))

  e <- nomis_get_metadata(
    "NM_1_1", "item",
    geography = 1879048226, sex = 5
  )
  expect_equal(nrow(e), 5)
  expect_true(tibble::is_tibble(e))
})