tests/testthat/test-modify-endpoint.R

In INyabuto/dhis2r: An R Client for DHIS2 Web API

test_that("'modify_endpoint' well modifies an api link", {
  expect_equal(modify_endpoint(), "api/resources")
  expect_equal(modify_endpoint(endpoint = "dataElements"), paste("api","dataElements", sep = "/"))
  expect_equal(modify_endpoint(endpoint = "dataElements", fields = c("name","id"), order = api_order("name", "asc")),
               paste("api","dataElements","?fields=name,id&order=name:asc", sep = "/"))
  expect_equal(modify_endpoint("categories", id = "IDA", ref = "categoryOptions", ref_id = "IDB"), paste(
    "api", "categories", "IDA", "categoryOptions", "IDB", sep = "/"
  ))
})