mirrors
/
redis
mirror of https://mirror.osredm.com/root/redis.git
2
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Remove string cat usage in tcl tests in order to support tcl8.5

This commit is contained in:
Mincho Paskalev 2025-05-29 15:39:56 +03:00 committed by YaacovHazan
parent c76d618209
commit 7916e58211
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/unit/hyperloglog.tcl
View File

@ -141,7 +141,9 @@ start_server {tags {"hll"}} {
r del hll
# Create a sparse-encoded HyperLogLog header
set pl [string cat "HYLL" [binary format c12 {1 0 0 0 0 0 0 0 0 0 0 0}]]
set header "HYLL"
set payload [binary format c12 {1 0 0 0 0 0 0 0 0 0 0 0}]
set pl [binary format a4a12 $header $payload]
# Create an XZERO opcode with the maximum run length of 16384(2^14)
set runlen [expr 16384 - 1]
@ -167,7 +169,9 @@ start_server {tags {"hll"}} {
r del hll
# Create a sparse-encoded HyperLogLog header
set pl [string cat "HYLL" [binary format c12 {1 0 0 0 0 0 0 0 0 0 0 0}]]
set header "HYLL"
set payload [binary format c12 {1 0 0 0 0 0 0 0 0 0 0 0}]
set pl [binary format a4a12 $header $payload]
# # Create an ZERO opcode with the maximum run length of 64(2^6)
set chunk [binary format c [expr {0b00000000 | 0x3f}]]