Nothing
#test_01_setup <- function() {
suppressMessages(library(RcppRedis))
redis <- new(Redis)
key <- "RcppRedis:test:myexists"
#test_02_exists <- function() {
redis$set(key, 10)
n <- redis$exists(key)
expect_equal(n, 1)
#test_02_doesNotExist <- function() {
n <- redis$exists("thisKeyIsNotSet-test")
expect_equal(n, 0)
#test_03_cleanup <- function() {
## delete key
n <- redis$exec(paste("del", key))
expect_equal(n, 1)
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.