set mylist {49376042582 {BkG2o\pIC]4YYJa9cJ4GWZalG[4tin;1D2whSkCOW`mX;SFXGyS8sedcff3fQI^tgPCC@^Nu1J6o]meM@Lko]t_jRyo<xSJ1oObDYd`ppZuW6P@fS278YaOx=s6lvdFlMbP0[SbkI^Kr\HBXtuFaA^mDx:yzS4a[skiiPWhT<nNfAf=aQVfclcuwDrfe;iVuKdNvB9kbfq>tK?tH[\EvWqS]b`o2OCtjg:?nUTwdjpcUm]y:pg5q24q7LlCOwQE^}}
}
r del l
r rpush l [lindex $mylist 0]
start_server {
r rpush l [lindex $mylist 1]
tags {list ziplist}
assert_equal [r lindex l 0][lindex $mylist 0]
overrides {
assert_equal [r lindex l 1][lindex $mylist 1]
"list-max-ziplist-value" 200000
}
"list-max-ziplist-entries" 256
}
tags {slow}{
}{
test {ziplist implementation: value encoding and backlink}{
test {Explicit regression for a list bug}{
for {set j 0}{$j < 100}{incr j}{
set mylist {49376042582 {BkG2o\pIC]4YYJa9cJ4GWZalG[4tin;1D2whSkCOW`mX;SFXGyS8sedcff3fQI^tgPCC@^Nu1J6o]meM@Lko]t_jRyo<xSJ1oObDYd`ppZuW6P@fS278YaOx=s6lvdFlMbP0[SbkI^Kr\HBXtuFaA^mDx:yzS4a[skiiPWhT<nNfAf=aQVfclcuwDrfe;iVuKdNvB9kbfq>tK?tH[\EvWqS]b`o2OCtjg:?nUTwdjpcUm]y:pg5q24q7LlCOwQE^}}
r del l
r del l
set l {}
r rpush l [lindex $mylist 0]
for {set i 0}{$i < 200}{incr i}{
r rpush l [lindex $mylist 1]
randpath {
assert_equal [r lindex l 0][lindex $mylist 0]
set data [string repeat x [randomInt 100000]]
assert_equal [r lindex l 1][lindex $mylist 1]
}{
}
set data [randomInt 65536]
}{
tags {slow}{
set data [randomInt 4294967296]
test {ziplist implementation: value encoding and backlink}{
}{
for {set j 0}{$j < 100}{incr j}{
set data [randomInt 18446744073709551616]
r del l
}
set l {}
lappend l $data
for {set i 0}{$i < 200}{incr i}{
r rpush l $data
randpath {
set data [string repeat x [randomInt 100000]]
}{
set data [randomInt 65536]
}{
set data [randomInt 4294967296]
}{
set data [randomInt 18446744073709551616]
}
}
assert_equal [llength $l][r llen l]
lappend l $data
# Traverse backward
r rpush l $data
for {set i 199}{$i >= 0}{incr i -1}{
}
if {[lindex $l $i] ne [r lindex l $i]}{
assert_equal [llength $l][r llen l]
assert_equal [lindex $l $i][r lindex l $i]
# Traverse backward
}
for {set i 199}{$i >= 0}{incr i -1}{
if {[lindex $l $i] ne [r lindex l $i]}{
assert_equal [lindex $l $i][r lindex l $i]
}
}
}
}
}
}
}
test {ziplist implementation: encoding stress testing}{
test {ziplist implementation: encoding stress testing}{