Include every "length" command + generic way to set typed keys (#96)

* Relay caches in-memory the "length" information about keys of any
  type, so we should include all of these commands in our benchmark
  suite.

* Add a generic helper method that uses our flags to set keys of a given
  type in a generic way.

benchmarks/Cases/BenchmarkHlen.php

@@ -0,0 +1,13 @@
+<?php
+
+namespace CacheWerk\Relay\Benchmarks\Cases;
+
+use CacheWerk\Relay\Benchmarks\Support\BenchmarkLenCommand;
+
+class BenchmarkHLEN extends BenchmarkLenCommand
+{
+    public static function flags(): int
+    {
+        return self::HASH | self::READ;
+    }
+}

benchmarks/Cases/BenchmarkLlen.php

@@ -0,0 +1,13 @@
+<?php
+
+namespace CacheWerk\Relay\Benchmarks\Cases;
+
+use CacheWerk\Relay\Benchmarks\Support\BenchmarkLenCommand;
+
+class BenchmarkLLEN extends BenchmarkLenCommand
+{
+    public static function flags(): int
+    {
+        return self::LIST | self::READ;
+    }
+}

benchmarks/Cases/BenchmarkScard.php

@@ -2,34 +2,12 @@
 
 namespace CacheWerk\Relay\Benchmarks\Cases;
 
-use CacheWerk\Relay\Benchmarks\Support\BenchmarkKeyCommand;
+use CacheWerk\Relay\Benchmarks\Support\BenchmarkLenCommand;
 
-class BenchmarkSCARD extends BenchmarkKeyCommand
+class BenchmarkSCARD extends BenchmarkLenCommand
 {
-    /**
-     * @var array<int, string>
-     */
-    protected array $keys;
-
     public static function flags(): int
     {
         return self::SET | self::READ;
     }
-
-    public function setUp(): void
-    {
-        $this->flush();
-        $this->setUpClients();
-        $this->seed();
-    }
-
-    public function seed(): void
-    {
-        $redis = $this->createPredis();
-
-        foreach ($this->loadJsonFile('meteorites.json') as $item) {
-            $redis->sadd((string) $item['id'], array_keys($this->flattenArray($item)));
-            $this->keys[] = $item['id'];
-        }
-    }
 }

benchmarks/Cases/BenchmarkStrlen.php

@@ -0,0 +1,13 @@
+<?php
+
+namespace CacheWerk\Relay\Benchmarks\Cases;
+
+use CacheWerk\Relay\Benchmarks\Support\BenchmarkLenCommand;
+
+class BenchmarkSTRLEN extends BenchmarkLenCommand
+{
+    public static function flags(): int
+    {
+        return self::STRING | self::READ;
+    }
+}

benchmarks/Cases/BenchmarkZcard.php

@@ -0,0 +1,13 @@
+<?php
+
+namespace CacheWerk\Relay\Benchmarks\Cases;
+
+use CacheWerk\Relay\Benchmarks\Support\BenchmarkLenCommand;
+
+class BenchmarkZCARD extends BenchmarkLenCommand
+{
+    public static function flags(): int
+    {
+        return self::ZSET | self::READ;
+    }
+}

benchmarks/Support/Benchmark.php

@@ -138,6 +138,44 @@ protected function loadJsonFile(string $file, bool $assoc = true) // @phpstan-ig
         return json_decode((string) $data, $assoc, 512, JSON_THROW_ON_ERROR);
     }
 
+    /**
+     * Generic function to seed keys of whatever type this benchmark operates
+     * against.  Will throw an exception if the command does not operate against
+     * a single key type (e.g. DEL).
+     *
+     * @return string[] An array of string key names.
+     **/
+    protected function seedSimpleKeys(): array {
+        $keys = [];
+
+        $redis = $this->createPredis();
+        $items = $this->loadJsonFile('meteorites.json');
+
+        foreach ($items as $item) {
+            $key = (string)$item['id'];
+
+            if ($this->flags() & Self::STRING) {
+                $redis->set($key, serialize($item));
+            } else if ($this->flags() & Self::LIST) {
+                $redis->rpush($key, $this->flattenArray($item));
+            } else if ($this->flags() & Self::HASH) {
+                $redis->hmset($key, $this->flattenArray($item));
+            } else if ($this->flags() & Self::SET) {
+                $redis->sadd($key, array_keys($this->flattenArray($item)));
+            } else if ($this->flags() & Self::ZSET) {
+                $redis->zadd($key, [array_rand($item) => mt_rand()/mt_getrandmax()]);
+            } else if ($this->flags() & Self::HYPERLOGLOG) {
+                $redis->pfadd($key, [array_rand($item)]);
+            } else {
+                throw new Exception("Unsupported key type");
+            }
+
+            $keys[] = $item['id'];
+        }
+
+        return $keys;
+    }
+
     public function setUpClients(): void
     {
         $this->predis = $this->createPredis();

benchmarks/Support/BenchmarkLenCommand.php

@@ -0,0 +1,25 @@
+<?php
+
+namespace CacheWerk\Relay\Benchmarks\Support;
+
+use CacheWerk\Relay\Benchmarks\Support\BenchmarkKeyCommand;
+
+abstract class BenchmarkLenCommand extends BenchmarkKeyCommand
+{
+    /**
+     * @var array<int, string>
+     */
+    protected array $keys;
+
+    public function setUp(): void
+    {
+        $this->flush();
+        $this->setUpClients();
+        $this->seed();
+    }
+
+    public function seed(): void
+    {
+        $this->keys = $this->seedSimpleKeys();
+    }
+}