tests/testthat/test-connection.R

In ropensci/rrlite: R Bindings to rlite

## 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"))
})