Nothing
context("pocket_get")
POCKET_TEST_CONSUMER_KEY <- "fakekey"
POCKET_TEST_ACCESS_TOKEN <- "faketoken"
test_that("empty consumer key causes error", {
expect_error(pocket_get(
access_token = POCKET_TEST_ACCESS_TOKEN, consumer_key = ""
),
regexp = "^POCKET_CONSUMER_KEY does not exist as environment variable. ", class = "usethis_error"
)
})
test_that("empty access token causes error", {
expect_error(pocket_get(
access_token = "", consumer_key = POCKET_TEST_CONSUMER_KEY
),
regexp = "^POCKET_ACCESS_TOKEN does not exist as environment variable", class = "usethis_error"
)
})
test_that("invalid tag value causes error", {
expect_error(pocket_get(access_token = POCKET_TEST_ACCESS_TOKEN, consumer_key = POCKET_TEST_CONSUMER_KEY, tag = c("more", "than", "one")),
regexp = "^The tag argument can only be a character string.", class = "usethis_error"
)
test_that("invalid favorite value causes error", {
expect_error(pocket_get(
access_token = POCKET_TEST_ACCESS_TOKEN, consumer_key = POCKET_TEST_CONSUMER_KEY,
favorite = "stringisnotvalid"
),
regexp = "^The favorite argument can only be", class = "usethis_error"
)
})
})
test_that("invalid item_type value causes error", {
expect_error(pocket_get(
access_token = POCKET_TEST_ACCESS_TOKEN, consumer_key = POCKET_TEST_CONSUMER_KEY,
item_type = "typenotexist"
),
regexp = "^The item_type argument can only be", class = "usethis_error"
)
})
##
test_that("invalid state value causes error", {
expect_error(pocket_get(access_token = POCKET_TEST_ACCESS_TOKEN, consumer_key = POCKET_TEST_CONSUMER_KEY, state = c("more", "than", "one")),
regexp = "^The state argument can only be one of the following:", class = "usethis_error"
)
test_that("invalid state value causes error", {
expect_error(pocket_get(
access_token = POCKET_TEST_ACCESS_TOKEN, consumer_key = POCKET_TEST_CONSUMER_KEY,
state = "stringisnotvalid"
),
regexp = "^The state argument can only be one of the following:", class = "usethis_error"
)
})
})
##
# get-86fba0-POST.R
with_mock_api({
test_that("invalid access token causes error", {
expect_error(pocket_get(access_token = "dsffkwejrl", consumer_key = POCKET_TEST_CONSUMER_KEY),
regexp = "\n401 Unauthorized: A valid access token", class = "usethis_error"
)
})
})
# get-40608f-POST.json
with_mock_api({
test_that("return value is data frame", {
return_value <- pocket_get(consumer_key = POCKET_TEST_CONSUMER_KEY, access_token = POCKET_TEST_ACCESS_TOKEN)
expect_s3_class(return_value, "data.frame")
expect_gt(nrow(return_value), 0)
})
})
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.