Nothing
context("tictocify")
test_that("tictocify returns a closure", {
expect_type(tictocify(strwidth), "closure")
})
test_that("tictocify functions give errors when arg names are duplicated", {
reduce_timed <- tictocify(purrr::reduce)
expect_error(reduce_timed(1:3, sum))
})
test_that("tictocify functions work when duped args are given", {
reduce_timed <- tictocify(purrr::reduce)
expect_output(reduce_timed(1:3, sum, .init = 0))
})
test_that("tictocify produces equal output to original", {
reduce_timed <- tictocify(purrr::reduce)
expect_equal(reduce_timed(1:3, sum, .init = 0), purrr::reduce(1:3, sum))
})
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.