Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

The behavior here is inconsistent between different versions of Redis.

These tests should be added back in again (with appropriate behavior)
once we have standardized on a version.
  • Loading branch information...
commit 2f28b2e059e1a57fc61f445167b8730201bf0a67 1 parent b8f42b4
@pashields pashields authored
Showing with 16 additions and 16 deletions.
  1. +16 −16 test/basicTest.R
View
32 test/basicTest.R
@@ -80,22 +80,22 @@ test14 <- function() {
redisDelete('foo')
}
-test15 <- function() {
- # keys test
- redisFlushAll()
- checkEquals(NULL, redisKeys('*'))
- redisSet('foo', 1)
- checkEquals(list('foo'), redisKeys('*'))
- redisDelete('foo')
-}
-
-test16 <- function() {
- # randomkey test
- checkEquals('', redisRandomKey())
- redisSet('foo', 1)
- checkEquals('foo', redisRandomKey())
- redisDelete('foo')
-}
+###test15 <- function() {
+### # keys test
+### redisFlushAll()
+### checkEquals(NULL, redisKeys('*'))
+### redisSet('foo', 1)
+### checkEquals(list('foo'), redisKeys('*'))
+### redisDelete('foo')
+###}
+
+###test16 <- function() {
+### # randomkey test
+### checkEquals('', redisRandomKey())
+### redisSet('foo', 1)
+### checkEquals('foo', redisRandomKey())
+### redisDelete('foo')
+###}
test17 <- function() {
# expire test
Please sign in to comment.
Something went wrong with that request. Please try again.