Add DEL (closes #56)

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,15 @@
+2025-03-27  Dirk Eddelbuettel  <[email protected]>
+
+	* DESCRIPTION (Version, Date): Roll micro version and date
+
+	* src/Redis.cpp: Add proper DEL, LREM, LMOVE commands
+	* inst/tinytest/test_basics.R: Adjust tests
+        * inst/tinytest/test_exec.R: Idem
+        * inst/tinytest/test_exists.R: Idem
+        * inst/tinytest/test_expire.R: Idem
+        * inst/tinytest/test_list.R: Idem
+        * inst/tinytest/test_set.R: Idem
+
 2025-03-26  Dirk Eddelbuettel  <[email protected]>
 
 	* DESCRIPTION (Version, Date): Release 0.2.5

inst/tinytest/test_basics.R

@@ -56,5 +56,4 @@ res <- redis$ping()
 expect_equal(res, "PONG")
 
 #test_06_cleanup <- function() {
-expect_equal(redis$exec("del RcppRedis:test:foo"), 1)
-expect_equal(redis$exec("del RcppRedis:test:foo2"), 1)
+expect_equal(redis$del(c("RcppRedis:test:foo","RcppRedis:test:foo2")), 2)

inst/tinytest/test_exec.R

@@ -19,5 +19,4 @@ expect_error(redis$exec("LRANGE mylist 0 elephant"))
 
 #test_04_cleanup <- function() {
 ## delete set
-n <- redis$exec(paste("del", key))
-expect_equal(n, 1)
+expect_equal(redis$del(key), 1)

inst/tinytest/test_exists.R

@@ -17,5 +17,4 @@ expect_equal(n, 0)
 
 #test_03_cleanup <- function() {
 ## delete key
-n <- redis$exec(paste("del", key))
-expect_equal(n, 1)
+expect_equal(redis$del(key), 1)

inst/tinytest/test_expire.R

@@ -36,5 +36,5 @@ expect_equal(n, 0)
 
 #test_03_cleanup <- function() {
 ## delete key
-redis$exec(paste("del", key))
+expect_equal(redis$del(key), 0)
 expect_equal(redis$exists(key), 0)

inst/tinytest/test_list.R

@@ -5,7 +5,7 @@ redis <- new(Redis)
 exampleNumericElement <- 1.0
 exampleCharElement <- "a"
 key <- "RcppRedis:test:mylist"
-redis$exec(paste("del", key))
+expect_equal(redis$del(key), 0)
 
 
 #test_02_lpush <- function() {
@@ -60,17 +60,16 @@ redis$lpush(key, 3)
 redis$ltrim(key, 0, 1)
 res <- redis$lrange(key, 0, 100)
 expect_equal(res,list(3,2))
-redis$exec(paste("del", key))
+expect_equal(redis$del(key), 1)
 
 
 #test_09_cleanup <- function() {
 ## delete key
-n <- redis$exec(paste("del", key))
-expect_equal(n, 0)
+expect_equal(redis$del(key), 0)
 
 
 ## check lrem
-redis$exec(paste("del", key))
+redis$del(key)
 elem <- "abc"
 redis$lpush(key, elem)
 redis$lpush(key, elem)
@@ -87,7 +86,7 @@ expect_equal(redis$keys(key), character())
 
 ## check lmove
 altkey <- "RcppRedis:test:myotherlist"
-redis$exec(paste("del", altkey))
+redis$del(altkey)
 redis$rpush(key, 1)
 redis$rpush(key, 2)
 redis$rpush(key, 3)

inst/tinytest/test_set.R

@@ -54,5 +54,4 @@ expect_identical(y, mem[[1]])
 
 #test_09_cleanup <- function() {
 ## delete set
-n <- redis$exec(paste("del", key))
-expect_equal(n, 1)
+expect_equal(redis$del(key), 1)

src/Redis.cpp

@@ -243,6 +243,18 @@ class Redis {
         return(exec("EXPIRE " + key + " " + ms));
     }
 
+    // redis DEL key1 [key2 key3 ...]
+    SEXP del(std::vector<std::string> sv) {
+        std::string cmd = "DEL";
+        for (auto s: sv) {
+            cmd += " " + s;
+        }
+        redisReply *reply = static_cast<redisReply*>(redisCommandNULLSafe(prc_, cmd.c_str()));
+        SEXP rep = extract_reply(reply);
+        freeReplyObject(reply);
+        return(rep);
+    }
+
     // redis set -- serializes to R internal format
     std::string set(std::string key, SEXP s) {
 
@@ -981,6 +993,7 @@ RCPP_MODULE(Redis) {
         .method("exists", &Redis::exists,  "runs 'EXISTS' command to count the number of specified keys present")
         .method("expire", &Redis::expire,  "runs 'EXPIRE' command to expire the key after a given number of seconds")
         .method("pexpire", &Redis::pexpire,  "runs 'PEXPIRE' command to expire the key after a given number of milliseconds")
+        .method("del", &Redis::del,  "runs 'DEL key1 [key2 key3 ...]' removing a key")
         .method("set",  &Redis::set,   "runs 'SET key object', serializes internally")
         .method("get",  &Redis::get,   "runs 'GET key', deserializes internally")