tests/testthat/test-rdadata_test.R

In 3DaVinci/rdadata: 'DADATA REST API' Wrapper for R

# save_dadata_tokens()  ----
test_that("save_dadata_tokens(): Does not return output",{
  expect_true(save_dadata_tokens("test"))
  expect_true(save_dadata_tokens(api_token = "test", secret_token = "test"))
  expect_error(save_dadata_tokens(api_token = NULL, secret_token = NULL))
})

# get_dadata_tokens()  ----
test_that("get_dadata_tokens(): Does not have any param",{
  expect_error(get_dadata_tokens("test"))
  expect_s3_class(get_dadata_tokens(), class = "data.frame")
})

# supported_suggestions() ----
test_that("supported_suggestions(): Field vector equal & and is.vector",{
  expect_equal(supported_suggestions(), c(
    "address", "postal_unit","country","party","bank","fio","fms_unit","email",
    "fns_unit","fts_unit", "region_court","metro","car_brand","mktu",
    "okved2","okpd2","oktmo","currency","find_affiliated"))
  expect_error(supported_suggestions("test"))
})

# supported_find_by_id() ----
test_that("supported_find_by_id(): Field vector equal & and is.vector",{
  expect_equal(supported_find_by_id(),     c(
    "postal_unit","country","fns_unit","fts_unit","region_court","car_brand","mktu",
    "okved2","party","okpd2","oktmo","currency","address",
    "delivery","fias","bank","cadastre"))
  expect_error(supported_find_by_id("test"))
})

# supported_cleans() ----
test_that("supported_cleans(): Field vector equal & and is.vector",{
  expect_equal(supported_cleans(),     c("address","geocode","name","phone",
                                         "passport","email","clean"))
  expect_error(supported_cleans("test"))
})

# suggest() ----
test_that("suggest(): Without tokens, will be error & some incorrect methods, query",{
  expect_error(suggest("test"))
  expect_error(suggest(method = "bank", query = "ти"))
  expect_error(suggest(method = "test", query = "ти"))
  expect_error(suggest(method = "bank", query = "ти", tidy = "test"))
})

# find_by_id() ----
test_that("find_by_id(): Without tokens, will be error & some incorrect methods, query",{
  expect_error(find_by_id("test"))
  expect_error(find_by_id(method = "bank", query = "ти"))
  expect_error(find_by_id(method = "test", query = "ти"))
  expect_error(find_by_id(method = "bank", query = "ти", tidy = "test"))
})

# locate() ----
test_that("locate(): Without tokens, will be error & some incorrect methods, query",{
  expect_error(locate("test"))
  expect_error(locate(method = "ip", query = "foo"))
  expect_error(locate(method = "test", query = "ти"))
  expect_error(locate(method = "ip", query = "ти", tidy = "test"))
})

# clean() ----
test_that("clean(): Without tokens, will be error & some incorrect methods, query",{
  expect_error(clean("test"))
  expect_error(clean(method = "name", query = "foo"))
  expect_error(clean(method = "test", query = "ти"))
  expect_error(clean(method = "name", query = "ти", tidy = "test"))
})

# personal_info() ----
test_that("personal_info(): Without tokens, will be error & some incorrect methods, query",{
  expect_error(personal_info("test"))
  expect_error(personal_info("balance"))
  expect_error(personal_info(method = "balance", query = "test"))
})