context("redux (basic test)")
test_that("use", {
r <- test_hiredis_connection()
expect_equal(r$PING(), redis_status("PONG"))
key <- "redisapi-test:foo"
expect_equal(r$SET(key, "bar"), redis_status("OK"))
expect_equal(r$GET(key), "bar")
r$DEL(key)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.