tests/testthat/test-var_namespace.R

In dataset: Create Data Frames that are Easier to Exchange and Reuse

test_that("var_namespace() works", {
  qid <- defined(c("Q275912", "Q116196078"), namespace = "https://www.wikidata.org/wiki/")
  expect_true(is.defined(qid))
  expect_equal(var_namespace(qid),"https://www.wikidata.org/wiki/")
})


test_that("set_namespace_attribute() works", {
  qid <- defined(c("Q275912", "Q116196078"), namespace = "https://www.wikidata.org/wiki/")
  expect_equal(
    get_namespace_attribute(set_namespace_attribute(qid, "https://www.wikiba.se/")), "https://www.wikiba.se/"
  )
  expect_error(set_namespace_attribute(qid, c("https://www.wikidata.org/wiki/", "https://www.wikiba.se/")))
})


test_that("`var_namespace<-` works", {
  qid <- defined(c("Q275912", "Q116196078"), namespace = "https://www.wikidata.org/wiki/")
  var_namespace(qid) <- "https://www.wikibase.se/"
  expect_equal(get_namespace_attribute(qid), "https://www.wikibase.se/")
  expect_error(var_namespace(qid) <-  c("https://www.wikidata.org/wiki/", "https://www.wikiba.se/"))
})