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

Minor improvements for list-2 test (#8156) 

had some unused variables.
now some are used to assert that they match, others were useless.
This commit is contained in:
Wang Yuan 2020-12-08 22:26:38 +08:00 committed by GitHub
parent 00db1b5579
commit 1acc315cea
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/unit/type/list-2.tcl
View File

@ -29,11 +29,11 @@ start_server {
set max [expr {$min+int(rand()*$startlen)}] set max [expr {$min+int(rand()*$startlen)}]
set before_len [llength $mylist] set before_len [llength $mylist]
set before_len_r [r llen mylist] set before_len_r [r llen mylist]
assert_equal $before_len $before_len_r
set mylist [lrange $mylist $min $max] set mylist [lrange $mylist $min $max]
r ltrim mylist $min $max r ltrim mylist $min $max
assert_equal $mylist [r lrange mylist 0 -1] "failed trim" assert_equal $mylist [r lrange mylist 0 -1] "failed trim"
set starting [r llen mylist]
for {set j [r llen mylist]} {$j < $startlen} {incr j} { for {set j [r llen mylist]} {$j < $startlen} {incr j} {
set str [randomInt 9223372036854775807] set str [randomInt 9223372036854775807]
r rpush mylist $str r rpush mylist $str