## Automatically generated from redux:tests/testthat/test-connection.R: do not edit by hand
context("connection")
test_that("rlite_connection", {
con <- rlite_connection()
expect_true(setequal(names(con),
c("config", "reconnect", "command",
"pipeline", "subscribe")))
expect_equal(con$command("PING"), redis_status("PONG"))
tmp <- unserialize(serialize(con, NULL))
expect_error(tmp$command("PING"), "Context is not connected")
tmp$reconnect()
expect_equal(con$command("PING"), redis_status("PONG"))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.