Added unit tests, simplified quick check

Author: eddelbuettel

inst/demos/queueDemo.R

@@ -133,14 +133,17 @@ quickCheck <- function() {
     redis <- new(RcppRedis::Redis)
     redis$lpush("foo", "banana")
     redis$lpush("foo", "banana")
-    print(str(redis$lrange("foo", 0, -1)))
+    #print(str(redis$lrange("foo", 0, -1)))
+    print(redis$llen("foo"))
     redis$lrem("foo", 1, "banana")
-    print(str(redis$lrange("foo", 0, -1)))
+    #print(str(redis$lrange("foo", 0, -1)))
+    print(redis$llen("foo"))
     redis$lpop("foo")
-    print(str(redis$lrange("foo", 0, -1)))
+    #print(str(redis$lrange("foo", 0, -1)))
+    print(redis$llen("foo"))
     invisible(NULL)
 }
 
-useRcppRedis()
+#useRcppRedis()
 #useRedux()
-#quickCheck()
+quickCheck()

inst/tinytest/test_list.R

@@ -67,3 +67,36 @@ redis$exec(paste("del", key))
 ## delete key
 n <- redis$exec(paste("del", key))
 expect_equal(n, 0)
+
+
+## check lrem
+redis$exec(paste("del", key))
+elem <- "abc"
+redis$lpush(key, elem)
+redis$lpush(key, elem)
+redis$lpush(key, elem)
+redis$lpush(key, elem)
+expect_equal(redis$llen(key), 4)
+redis$lrem(key, 1, elem)
+expect_equal(redis$llen(key), 3)
+redis$lrem(key, -1, elem)
+expect_equal(redis$llen(key), 2)
+expect_equal(redis$lpop(key), elem)
+expect_equal(redis$lpop(key), elem)
+expect_equal(redis$keys(key), character())
+
+## check lmove
+altkey <- "RcppRedis:test:myotherlist"
+redis$exec(paste("del", altkey))
+redis$rpush(key, 1)
+redis$rpush(key, 2)
+redis$rpush(key, 3)
+redis$lmove(key, altkey, "LEFT", "RIGHT")
+expect_equal(redis$llen(key), 2)
+expect_equal(redis$llen(altkey), 1)
+redis$lmove(key, altkey, "LEFT", "LEFT")
+expect_equal(redis$llen(key), 1)
+expect_equal(redis$llen(altkey), 2)
+expect_equal(redis$lpop(key), 3)    # as 1 and 2 have been moved (both from left)
+expect_equal(redis$lpop(altkey), 2) # as 2 was inserted to the left
+expect_equal(redis$lpop(altkey), 1) # as 1 remains