caleb-brown/redict
1
0
Fork 0
mirror of https://codeberg.org/redict/redict.git synced 2025-01-22 16:18:28 -05:00
Code Issues Actions Packages Projects Releases Wiki Activity

tag more slow tests

Browse Source
This commit is contained in:
Pieter Noordhuis 2010-06-03 00:16:10 +02:00
parent 5713f06b33
commit 6b6f101c27
2 changed files with 21 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/unit/expire.tcl
View File

@ -12,10 +12,12 @@ start_server {tags {"expire"}} {
r get x r get x
} {foobar} } {foobar}
test {EXPIRE - After 6 seconds the key should no longer be here} { tags {"slow"} {
after 6000 test {EXPIRE - After 6 seconds the key should no longer be here} {
list [r get x] [r exists x] after 6000
} {{} 0} list [r get x] [r exists x]
} {{} 0}
}
test {EXPIRE - Delete on write policy} { test {EXPIRE - Delete on write policy} {
r del x r del x

28
tests/unit/other.tcl
View File

@ -12,20 +12,22 @@ start_server {} {
r save r save
} {OK} } {OK}
foreach fuzztype {binary alpha compr} { tags {"slow"} {
test "FUZZ stresser with data model $fuzztype" { foreach fuzztype {binary alpha compr} {
set err 0 test "FUZZ stresser with data model $fuzztype" {
for {set i 0} {$i < 10000} {incr i} { set err 0
set fuzz [randstring 0 512 $fuzztype] for {set i 0} {$i < 10000} {incr i} {
r set foo $fuzz set fuzz [randstring 0 512 $fuzztype]
set got [r get foo] r set foo $fuzz
if {$got ne $fuzz} { set got [r get foo]
set err [list $fuzz $got] if {$got ne $fuzz} {
break set err [list $fuzz $got]
break
}
} }
} set _ $err
set _ $err } {0}
} {0} }
} }
test {BGSAVE} { test {BGSAVE} {