tests/testthat/test_search.R

In WikidataR: Read-Write API Client Library for Wikidata

context("Search functions")

test_that("English-language search works",{
  expect_true({find_item("Wonder Girls", "en");TRUE})
})

test_that("Non-English-language search works",{
  expect_true({find_item("Wonder Girls", "es");TRUE})
})

test_that("Property search works",{
  expect_true({find_property("Music", "en");TRUE})
})