tests/testthat/test-build_urls.R

In sgapi: Aid Querying 'nomis' and 'Office for National Statistics Open Geography' APIs

test_that("URL query strings build correctly", {

expect_equal(build_url_query_string(), "")
expect_equal(build_url_query_string(field1 = "str_option"), "?field1=str_option")
expect_equal(build_url_query_string(field1 = "str_option1", field2 = "str_option2"), "?field1=str_option1&field2=str_option2")
expect_equal(build_url_query_string(field1 = 3.14, field2 = c(1, 2, 3)), "?field1=3.14&field2=1,2,3")
expect_equal(build_url_query_string(prefix = "/query?", sep = "|", value_sep = ":", field1 = 42, field2 = c(1.1, 1.2, 1.3)), "/query?field1=42|field2=1.1:1.2:1.3")
})