Add Redis source code for testing

1 files changed, 28 insertions, 0 deletions

diff --git a/examples/redis-unstable/tests/integration/convert-ziplist-zset-on-load.tcl b/examples/redis-unstable/tests/integration/convert-ziplist-zset-on-load.tcl
new file mode 100644
index 0000000..0fbb201
--- /dev/null
+++ b/examples/redis-unstable/tests/integration/convert-ziplist-zset-on-load.tcl
@@ -0,0 +1,28 @@
+tags {"external:skip"} {
+
+# Copy RDB with ziplist encoded hash to server path
+set server_path [tmpdir "server.convert-ziplist-hash-on-load"]
+
+exec cp -f tests/assets/zset-ziplist.rdb $server_path
+start_server [list overrides [list "dir" $server_path "dbfilename" "zset-ziplist.rdb"]] {
+    test "RDB load ziplist zset: converts to listpack when RDB loading" {
+        r select 0
+
+        assert_encoding listpack zset
+        assert_equal 2 [r zcard zset]
+        assert_match {one 1 two 2} [r zrange zset 0 -1 withscores]
+    }
+}
+
+exec cp -f tests/assets/zset-ziplist.rdb $server_path
+start_server [list overrides [list "dir" $server_path "dbfilename" "zset-ziplist.rdb" "zset-max-ziplist-entries" 1]] {
+    test "RDB load ziplist zset: converts to skiplist when zset-max-ziplist-entries is exceeded" {
+        r select 0
+
+        assert_encoding skiplist zset
+        assert_equal 2 [r zcard zset]
+        assert_match {one 1 two 2} [r zrange zset 0 -1 withscores]
+    }
+}
+
+}