context("time")
test_that("time works", {
skip_on_cran()
aa <- GET("https://mockbin.com/request") %>% time(verbose = FALSE)
bb <- GET("https://api.github.com/") %>% time(verbose = FALSE)
expect_is(aa, "http_time")
expect_is(aa$times, "list")
expect_is(aa$averages, "list")
expect_is(aa$request, "response")
expect_equal(aa$request$url, "https://mockbin.com/request")
expect_is(bb, "http_time")
expect_is(bb$times, "list")
expect_is(bb$averages, "list")
expect_is(bb$request, "response")
expect_equal(bb$request$url, "https://api.github.com/")
})
test_that("time - count parameter works", {
skip_on_cran()
n2 <- time(GET("https://mockbin.com/request"), count = 2, verbose = FALSE)
n7 <- time(GET("https://mockbin.com/request"), count = 7, verbose = FALSE)
expect_is(n2, "http_time")
expect_equal(length(n2$times), 2)
expect_is(n7, "http_time")
expect_equal(length(n7$times), 7)
})
test_that("time - delay parameter works", {
skip_on_cran()
expect_gt(
system.time(time(GET("https://mockbin.com/request"), count = 3, verbose = FALSE, delay = 1))[[3]],
system.time(time(GET("https://mockbin.com/request"), count = 3, verbose = FALSE, delay = 0.5))[[3]]
)
})
test_that("time - flood parameter works", {
skip_on_cran()
expect_gt(
system.time(time(GET("https://mockbin.com/request"), count = 3, verbose = FALSE))[[3]],
system.time(time(GET("https://mockbin.com/request"), count = 3, verbose = FALSE, flood = TRUE))[[3]]
)
})
test_that("time - fails well", {
skip_on_cran()
expect_error(time(), "argument \".request\" is missing")
expect_error(time(GET("https://mockbin.com/request"), count = 1, verbose = FALSE),
"count parameter must be greater than 1")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.