From 1acc315cea882ed7b3c257179bb96eccf6eb676d Mon Sep 17 00:00:00 2001 From: Wang Yuan Date: Tue, 8 Dec 2020 22:26:38 +0800 Subject: [PATCH] Minor improvements for list-2 test (#8156) had some unused variables. now some are used to assert that they match, others were useless. --- tests/unit/type/list-2.tcl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/unit/type/list-2.tcl b/tests/unit/type/list-2.tcl index 4c7d6d91c..5874a9028 100644 --- a/tests/unit/type/list-2.tcl +++ b/tests/unit/type/list-2.tcl @@ -29,11 +29,11 @@ start_server { set max [expr {$min+int(rand()*$startlen)}] set before_len [llength $mylist] set before_len_r [r llen mylist] + assert_equal $before_len $before_len_r set mylist [lrange $mylist $min $max] r ltrim mylist $min $max 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} { set str [randomInt 9223372036854775807] r rpush mylist $str