tests/testthat/test-build_country_level_string.R

In worldbank/povcalnetR: Client for the 'Povcalnet' API

country <- c("ALB", "CHN")
povline <- c(1.9, 2.0)
year <- c(2002, 2002)
ppp <- c(100, 50)
coverage_type <- c("national", "rural")

test_that("Incorrect inputs trigger errors", {

  expect_error(build_query_string_cl(country = "ALB",
                                          povline = povline,
                                          year = year)
  )

  expect_error(build_query_string_cl(country = country,
                                          povline = 2.0,
                                          year = year)
  )

  expect_error(build_query_string_cl(country = country,
                                          povline = povline,
                                          year = 2000)
  )

  expect_error(build_query_string_cl(country = country,
                                          povline = povline,
                                          year = year,
                                          ppp = 100)
  )

  expect_error(build_query_string_cl(country = country,
                                          povline = povline,
                                          year = year,
                                          coverage_type = "urban")
  )

})

test_that("Country level queries are built correctly", {
  query <- build_query_string_cl(country = country,
                                      povline = povline,
                                      year = year)
  expect_equal(query, "C0=ALB&PL0=1.9&Y0=2002&C1=CHN&PL1=2&Y1=2002&format=json")

  query <- build_query_string_cl(country = country,
                                      povline = povline,
                                      year = year,
                                      ppp = ppp)
  expect_equal(query, "C0=ALB&PL0=1.9&Y0=2002&PPP0=100&C1=CHN&PL1=2&Y1=2002&PPP1=50&format=json")

  query <- build_query_string_cl(country = country,
                                      povline = povline,
                                      year = year,
                                      ppp = ppp,
                                      coverage_type = coverage_type)
  expect_equal(query, "C0=ALB_3&PL0=1.9&Y0=2002&PPP0=100&C1=CHN_1&PL1=2&Y1=2002&PPP1=50&format=json")
})