source("setup-vars.R")
test_that("Constructor works", {
## constructor with default base path
ac <- ApiClient$new()
## test with other basePath
ac <- ApiClient$new(basePath = "http://localhost:8080/v2")
## test with other userAgent
ac <- ApiClient$new(userAgent = "test/0.0")
})
test_that("HandleError function works", {
## make call that produces error
res <- ac$callApi(
"http://api.biodiversitydata.nl/v2/unknownendpoint", "GET",
headerParams = NULL, queryParams = NULL, body = NULL
)
expect_warning(ac$handleError(res))
})
if (!ac$ping()) {
skip("NBA not available, skipping test")
}
test_that("CallApi function works", {
res <- ac$callApi(
"http://api.biodiversitydata.nl/v2", "GET",
headerParams = NULL, queryParams = NULL, body = NULL
)
expect_true(res$status_code == 200)
})
test_that("non-GET requests", {
## Formulate Query and tranform to list as POST body
qc <- QueryCondition$new(
field = "defaultClassification.genus",
operator = "EQUALS", value = "Sempervivum"
)
qs <- QuerySpec$new(conditions = list(qc))
body <- qs$toList()
res <- ac$callApi("http://api.biodiversitydata.nl/v2/taxon/query",
"POST",
headerParams = NULL,
queryParams = NULL,
body = body
)
expect_true(res$status_code == 200)
## test non-allowed http method
expect_error(ac$callApi("http://api.biodiversitydata.nl/v2",
method = "PUT", headerParams = NULL
))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.