fluencelabs/redis
1
0
Fork 0
mirror of https://github.com/fluencelabs/redis synced 2025-04-26 02:52:15 +00:00
Code Issues Projects Releases Wiki Activity

run both inmemory and diskstore tests.

Browse Source
This commit is contained in:
antirez 2011-01-09 19:42:56 +01:00
parent a5062bbab0
commit 322ea972fe
2 changed files with 38 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
tests/test_helper.tcl
View File

@ -13,7 +13,7 @@ set ::host 127.0.0.1
set ::port 16379 set ::port 16379
set ::traceleaks 0 set ::traceleaks 0
set ::valgrind 0 set ::valgrind 0
set ::verbose 1 set ::verbose 0
set ::denytags {} set ::denytags {}
set ::allowtags {} set ::allowtags {}
set ::external 0; # If "1" this means, we are running against external instance set ::external 0; # If "1" this means, we are running against external instance
@ -110,7 +110,6 @@ proc cleanup {} {
} }
proc execute_everything {} { proc execute_everything {} {
if 0 {
execute_tests "unit/auth" execute_tests "unit/auth"
execute_tests "unit/protocol" execute_tests "unit/protocol"
execute_tests "unit/basic" execute_tests "unit/basic"
@ -127,20 +126,20 @@ proc execute_everything {} {
execute_tests "integration/aof" execute_tests "integration/aof"
# execute_tests "integration/redis-cli" # execute_tests "integration/redis-cli"
execute_tests "unit/pubsub" execute_tests "unit/pubsub"
}
# run tests with diskstore enabled # run tests with diskstore enabled
puts "Running diskstore tests... this is slow, press Ctrl+C if not interested.."
set ::diskstore 1 set ::diskstore 1
lappend ::denytags nodiskstore lappend ::denytags nodiskstore
set ::global_overrides {diskstore-enabled yes} set ::global_overrides {diskstore-enabled yes}
# execute_tests "unit/protocol" execute_tests "unit/protocol"
# execute_tests "unit/basic" execute_tests "unit/basic"
# execute_tests "unit/type/list" execute_tests "unit/type/list"
# execute_tests "unit/type/set" execute_tests "unit/type/set"
# execute_tests "unit/type/zset" execute_tests "unit/type/zset"
# execute_tests "unit/type/hash" execute_tests "unit/type/hash"
# execute_tests "unit/sort" execute_tests "unit/sort"
# execute_tests "unit/expire" execute_tests "unit/expire"
execute_tests "unit/other" execute_tests "unit/other"
execute_tests "unit/cas" execute_tests "unit/cas"
} }

2
tests/unit/other.tcl
View File

@ -120,6 +120,7 @@ start_server {tags {"other"}} {
list $e1 $e2 list $e1 $e2
} {1 1} } {1 1}
tags {protocol nodiskstore} {
test {PIPELINING stresser (also a regression for the old epoll bug)} { test {PIPELINING stresser (also a regression for the old epoll bug)} {
set fd2 [socket $::host $::port] set fd2 [socket $::host $::port]
fconfigure $fd2 -encoding binary -translation binary fconfigure $fd2 -encoding binary -translation binary
@ -148,6 +149,7 @@ start_server {tags {"other"}} {
close $fd2 close $fd2
set _ 1 set _ 1
} {1} } {1}
}
test {MUTLI / EXEC basics} { test {MUTLI / EXEC basics} {
r del mylist r del mylist