context("RequestRegistry")
test_that("RequestRegistry: structure", {
expect_is(RequestRegistry, "R6ClassGenerator")
aa <- RequestRegistry$new()
expect_is(aa, "RequestRegistry")
expect_is(aa$clone, "function")
expect_is(aa$print, "function")
expect_is(aa$register_request, "function")
expect_null(aa$request)
expect_is(aa$request_signatures, "HashCounter")
expect_is(aa$reset, "function")
})
test_that("RequestRegistry: behaves as expected", {
aa <- RequestRegistry$new()
aa$reset()
expect_length(aa$request_signatures$hash, 0)
z1 = RequestSignature$new(method = "post", uri = "https://www.wikipedia.org/")
aa$register_request(request = z1)
aa$register_request(request = z1)
expect_length(aa$request_signatures$hash, 1)
expect_equal(
aa$request_signatures$hash[[z1$to_s()]]$count,
2
)
expect_output(
print(aa), "Registered Requests"
)
expect_output(
print(aa), "POST: https://www.wikipedia.org/ was made"
)
# reset the request registry
aa$reset()
expect_length(aa$request_signatures$hash, 0)
})
test_that("RequestRegistry fails well", {
x <- RequestRegistry$new()
expect_error(x$register_request(), '\"request\" is missing')
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.