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

Fix test randstring, compare string and int is wrong. (#9544) 

This will cause the generated string containing "\".
Fixes a broken change in #8687
This commit is contained in:
Huang Zhw 2021-09-24 21:58:38 +08:00 committed by GitHub
parent f0fab99d6f
commit bdecbd30df
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
tests/support/util.tcl
View File

@ -12,9 +12,10 @@ proc randstring {min max {type binary}} {
set maxval 52 set maxval 52
} }
while {$len} { while {$len} {
set rr [format "%c" [expr {$minval+int(rand()*($maxval-$minval+1))}]] set num [expr {$minval+int(rand()*($maxval-$minval+1))}]
set rr [format "%c" $num]
if {$type eq {simplealpha} && ![string is alnum $rr]} {continue} if {$type eq {simplealpha} && ![string is alnum $rr]} {continue}
if {$type eq {alpha} && $rr eq 92} {continue} ;# avoid putting '\' char in the string, it can mess up TCL processing if {$type eq {alpha} && $num eq 92} {continue} ;# avoid putting '\' char in the string, it can mess up TCL processing
append output $rr append output $rr
incr len -1 incr len -1
} }