Nothing
test_that("Api function throws error when token is not provided", {
test_function <- function(token) {
testthat::expect_error(
sevenbridges2::api(
token = token,
path = "user/",
method = "GET",
base_url = "https://api.sbgenomics.com/v2/"
),
"Token must be provided."
)
}
lapply(bad_tokens, test_function)
})
test_that("Api function throws error when url is not provided", {
test_function <- function(url) {
testthat::expect_error(
sevenbridges2::api(
token = dummy_token,
path = "user/",
method = "GET",
base_url = url
),
"API address from the preferred platform must be provided"
)
}
lapply(bad_urls, test_function)
})
test_that("Api function throws error when method is not valid", {
test_function <- function(method) {
testthat::expect_error(
sevenbridges2::api(
token = dummy_token,
path = "user/",
method = method,
base_url = "https://api.sbgenomics.com/v2/"
)
)
}
lapply(bad_methods, test_function)
})
test_that("Api function throws error when encoding is not valid", {
test_function <- function(encode) {
testthat::expect_error(
sevenbridges2::api(
token = dummy_token,
path = "user/",
method = "GET",
base_url = "https://api.sbgenomics.com/v2/",
encode = encode
)
)
}
lapply(bad_encodings, test_function)
})
test_that("Status check function works properly for unauthorized request", {
testthat::expect_error(sevenbridges2::api(
token = dummy_token,
# fake token
path = "user/",
method = "GET",
base_url = "https://api.sbgenomics.com/v2/"
))
})
test_that("Status check function works properly for undefined resource
request", {
testthat::expect_error(sevenbridges2::api(
token = dummy_token,
# fake token
path = "wizards/", # non-existent resource
method = "GET",
base_url = "https://api.sbgenomics.com/v2/"
))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.