Nothing
context("RequestSignature")
test_that("RequestSignature: works", {
expect_is(RequestSignature, "R6ClassGenerator")
aa <- RequestSignature$new(method = "get", uri = "https:/httpbin.org/get")
expect_is(aa, "RequestSignature")
expect_null(aa$auth)
expect_null(aa$body)
expect_null(aa$headers)
expect_null(aa$proxies)
expect_null(aa$fields)
expect_null(aa$output)
expect_is(aa$method, "character")
expect_equal(aa$method, "get")
expect_is(aa$uri, "character")
expect_equal(aa$uri, "https:/httpbin.org/get")
expect_is(aa$to_s, "function")
expect_equal(aa$to_s(), "GET: https:/httpbin.org/get")
})
test_that("RequestSignature: different methods work", {
aa <- RequestSignature$new(method = "post", uri = "https:/httpbin.org/post",
options = list(fields = list(foo = "bar")))
aa$headers <- list(Accept = "application/json")
aa$body <- list(foo = "bar")
expect_is(aa$method, "character")
expect_is(aa$uri, "character")
expect_is(aa$headers, "list")
expect_is(aa$body, "list")
expect_is(aa$fields, "list")
expect_named(aa$fields, "foo")
})
test_that("RequestSignature fails well", {
expect_error(RequestSignature$new(), "argument \"method\" is missing")
expect_error(RequestSignature$new(method = "adf"),
"'arg' should be one of")
expect_error(RequestSignature$new(method = "get"),
"argument \"uri\" is missing")
})
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.