Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
24bd9b19
Commit
24bd9b19
authored
Jun 28, 2016
by
antirez
Browse files
Test: new randomized stress tester for #3343 alike bugs.
parent
f983318e
Changes
1
Hide whitespace changes
Inline
Side-by-side
tests/unit/type/list-3.tcl
View file @
24bd9b19
...
@@ -27,8 +27,33 @@ start_server {
...
@@ -27,8 +27,33 @@ start_server {
}
{
PONG
}
}
{
PONG
}
test
{
Stress tester for #3343-alike bugs
}
{
test
{
Stress tester for #3343-alike bugs
}
{
for
{
set j 0
}
{
$j
< 100
}
{
incr j
}
{
r del key
puts
[
randomInt 10
]
for
{
set j 0
}
{
$j
< 10000
}
{
incr j
}
{
set op
[
randomInt 6
]
set small_signed_count
[
expr 5-
[
randomInt 10
]]
if
{[
randomInt 2
]
== 0
}
{
set ele
[
randomInt 1000
]
}
else
{
set ele
[
string repeat x
[
randomInt 10000
]][
randomInt 1000
]
}
switch $op
{
0
{
r lpush key $ele
}
1
{
r rpush key $ele
}
2
{
r lpop key
}
3
{
r rpop key
}
4
{
catch
{
r lset key $small_signed_count $ele
}
}
5
{
set otherele
[
randomInt 1000
]
if
{[
randomInt 2
]
== 0
}
{
set where before
}
else
{
set where after
}
r linsert key $where $otherele $ele
}
}
}
}
}
}
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment