tests/testthat/test-zzz-commands-transactions.R

context("commands - transactions")

test_that("DISCARD", {
  expect_equal(redis_cmds$DISCARD(), list("DISCARD"))
})

test_that("EXEC", {
  expect_equal(redis_cmds$EXEC(), list("EXEC"))
})

test_that("MULTI", {
  expect_equal(redis_cmds$MULTI(), list("MULTI"))
})

test_that("UNWATCH", {
  expect_equal(redis_cmds$UNWATCH(), list("UNWATCH"))
})

test_that("WATCH", {
  expect_equal(redis_cmds$WATCH("aa"), list("WATCH", "aa"))
  expect_equal(redis_cmds$WATCH(c("aa", "bb")), list("WATCH", c("aa", "bb")))
})

Try the redux package in your browser

Any scripts or data that you put into this service are public.

redux documentation built on Jan. 12, 2022, 5:09 p.m.