gistfile1.tcl

start_server {
    tags {"list"}
    overrides {
        "list-max-ziplist-value" 512
        "list-max-ziplist-entries" 1024
    }
} {
    test {ziplist implementation stress testing} {
        for {set j 0} {$j < 100} {incr j} {
            r del l
            set l {}
            for {set i 0} {$i < 200} {incr i} {
                set rv [randomValue]
                randpath {
                    lappend l $rv
                    r rpush l $rv
                } {
                    set l [concat [list $rv] $l]
                    r lpush l $rv
                }
            }
            assert_equal [llength $l] [r llen l]
            for {set i 0} {$i < 200} {incr i} {
                assert_equal [lindex $l $i] [r lindex l $i]
            }
        }
    }
}