tests/testthat/test-kobo_lang.R

In robotoolbox: Client for the 'KoboToolbox' API

test_that("kobo_lang works", {
  url <- Sys.getenv("KOBOTOOLBOX_PROD_URL")
  token <- Sys.getenv("KOBOTOOLBOX_PROD_TOKEN")
  skip <-  url == "" & token == ""
  skip_if(skip,
          message = "Test server not configured")

  kobo_setup(url = url,
             token = token)
  uid <- "aYuTZn9vegi3Z49MXwKjep"
  lng1 <- kobo_lang(uid)
  lng2 <- kobo_lang(kobo_asset(uid))
  expect_equal(lng1, lng2)
  expect_type(lng1, "character")
  expect_error(kobo_lang(1L))
  expect_error(kobo_lang("bad_uid"))
})