upstream/redis
1
0
Fork 0
mirror of https://github.com/redis/redis.git synced 2026-06-14 20:12:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 7

Remove string cat usage in tcl tests in order to support tcl8.5 (#14238)

Browse source 
Co-authored-by: Mincho Paskalev <minchopaskal@gmail.com>
This commit is contained in:
YaacovHazan 2025-07-31 11:51:04 +03:00 committed by GitHub
parent bec644aab1
commit 9b6fb47603
No known key found for this signature in database
GPG key ID: B5690EEEBB952194
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}]]