Merge pull request #1 from bduggan/main

Fix srem
raku-community-modules · Jan 14, 2025 · c9dd69d · c9dd69d
2 parents 2314dcf + 52981b9
commit c9dd69d
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 4 deletions.
diff --git a/lib/Redis.rakumod b/lib/Redis.rakumod
@@ -743,7 +743,7 @@ method srandmember(Str:D $key) {
 }
 
 method srem(Str:D $key, *@members --> Int:D) {
-    self.exec_command("SREM", |@members)
+    self.exec_command("SREM", $key, |@members)
 }
 
 method sunion(*@keys --> List:D) {

diff --git a/t/02-sets.rakutest b/t/02-sets.rakutest
@@ -4,15 +4,16 @@ use Redis;
 use lib "t";
 use Test::SpawnRedisServer;
 
-plan 15;
+plan 17;
 
 if SpawnRedis() -> $proc {
     LEAVE $proc.kill('INT');
 
     my $r = Redis.new("127.0.0.1:63790", decode_response => True);
     $r.auth('20bdfc8e73365b2fde82d7b17c3e429a9a94c5c9');
     $r.flushall;
-
+    ok $r.sadd('abcd',1 );
+    ok $r.srem('abcd',"1" );
 
     is-deeply $r.sadd("set1", 1, 2, 3, 4), 4;
     is-deeply $r.scard("set1"), 4;
@@ -35,7 +36,7 @@ if SpawnRedis() -> $proc {
     ok $r.srandmember("set_diff") eq any("1", "2", "3");
 
     # srem
-    is-deeply $r.srem("set_inter", "3", "4"), 0;
+    is-deeply $r.srem("set_inter", "3", "4"), 1;
 
     # sunion & sunionstore
     is-deeply $r.sunion("set1", "set2"), ["1", "2", "3", "4"];