Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ruanhaishen
redis
Commits
322ea972
Commit
322ea972
authored
Jan 09, 2011
by
antirez
Browse files
run both inmemory and diskstore tests.
parent
a5062bba
Changes
2
Hide whitespace changes
Inline
Side-by-side
tests/test_helper.tcl
View file @
322ea972
...
...
@@ -13,7 +13,7 @@ set ::host 127.0.0.1
set ::port 16379
set ::traceleaks 0
set ::valgrind 0
set ::verbose
1
set ::verbose
0
set ::denytags
{}
set ::allowtags
{}
set ::external 0
;
# If
"1"
this means, we are running against external instance
...
...
@@ -110,7 +110,6 @@ proc cleanup {} {
}
proc execute_everything
{}
{
if 0
{
execute_tests
"unit/auth"
execute_tests
"unit/protocol"
execute_tests
"unit/basic"
...
...
@@ -127,20 +126,20 @@ proc execute_everything {} {
execute_tests
"integration/aof"
# execute_tests
"integration/redis-cli"
execute_tests
"unit/pubsub"
}
# run tests with diskstore enabled
puts
"Running diskstore tests... this is slow, press Ctrl+C if not interested.."
set ::diskstore 1
lappend ::denytags nodiskstore
set ::global_overrides
{
diskstore-enabled yes
}
#
execute_tests
"unit/protocol"
#
execute_tests
"unit/basic"
#
execute_tests
"unit/type/list"
#
execute_tests
"unit/type/set"
#
execute_tests
"unit/type/zset"
#
execute_tests
"unit/type/hash"
#
execute_tests
"unit/sort"
#
execute_tests
"unit/expire"
execute_tests
"unit/protocol"
execute_tests
"unit/basic"
execute_tests
"unit/type/list"
execute_tests
"unit/type/set"
execute_tests
"unit/type/zset"
execute_tests
"unit/type/hash"
execute_tests
"unit/sort"
execute_tests
"unit/expire"
execute_tests
"unit/other"
execute_tests
"unit/cas"
}
...
...
tests/unit/other.tcl
View file @
322ea972
...
...
@@ -120,34 +120,36 @@ start_server {tags {"other"}} {
list $e1 $e2
}
{
1 1
}
test
{
PIPELINING stresser
(
also a regression for the old epoll bug
)}
{
set fd2
[
socket $::host $::port
]
fconfigure $fd2 -encoding binary -translation binary
puts -nonewline $fd2
"SELECT 9
\r\n
"
flush $fd2
gets $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
set q
{}
set val
"0000
${i}
0000"
append q
"SET key:
$i
$val
\r\n
"
puts -nonewline $fd2 $q
set q
{}
append q
"GET key:
$i
\r\n
"
puts -nonewline $fd2 $q
}
flush $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
gets $fd2 line
gets $fd2 count
set count
[
string range $count 1 end
]
set val
[
read $fd2 $count
]
read $fd2 2
}
close $fd2
set _ 1
}
{
1
}
tags
{
protocol nodiskstore
}
{
test
{
PIPELINING stresser
(
also a regression for the old epoll bug
)}
{
set fd2
[
socket $::host $::port
]
fconfigure $fd2 -encoding binary -translation binary
puts -nonewline $fd2
"SELECT 9
\r\n
"
flush $fd2
gets $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
set q
{}
set val
"0000
${i}
0000"
append q
"SET key:
$i
$val
\r\n
"
puts -nonewline $fd2 $q
set q
{}
append q
"GET key:
$i
\r\n
"
puts -nonewline $fd2 $q
}
flush $fd2
for
{
set i 0
}
{
$i
< 100000
}
{
incr i
}
{
gets $fd2 line
gets $fd2 count
set count
[
string range $count 1 end
]
set val
[
read $fd2 $count
]
read $fd2 2
}
close $fd2
set _ 1
}
{
1
}
}
test
{
MUTLI / EXEC basics
}
{
r del mylist
...
...
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