gistfile1.tcl

test "LTRIM hard stressing" {
    set mylist {}
    for {set i 0} {$i < 32} {incr i} {
        set str [randstring 8 16 alpha]
        r rpush mylist $str
        lappend mylist $str
    }

    set startlen [r llen mylist]
    for {set i 0} {$i < 2000} {incr i} {
        set min [expr {int(rand()*($startlen-1))}]
        set max [expr {$min+int(rand()*($startlen-1))}]
        set mylist [lrange $mylist $min $max]
        r ltrim mylist $min $max
        assert_equal $mylist [r lrange mylist 0 -1]

        for {set j [r llen mylist]} {$j < $startlen} {incr j} {
            set str [randstring 8 16 alpha]
            r rpush mylist $str
            lappend mylist $str
        }
    }
}