X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/cc7c4158bc9c584b91560e9bf3dff51a9316c9b3..a5062bbab0a1619523a9562cec2256de16149c29:/tests/unit/other.tcl?ds=sidebyside diff --git a/tests/unit/other.tcl b/tests/unit/other.tcl index c142ba7f..15fb55b4 100644 --- a/tests/unit/other.tcl +++ b/tests/unit/other.tcl @@ -12,7 +12,7 @@ start_server {tags {"other"}} { r save } {OK} - tags {"slow"} { + tags {slow nodiskstore} { foreach fuzztype {binary alpha compr} { test "FUZZ stresser with data model $fuzztype" { set err 0 @@ -46,7 +46,7 @@ start_server {tags {"other"}} { set _ $err } {*invalid*} - tags {consistency} { + tags {consistency nodiskstore} { if {![catch {package require sha1}]} { test {Check consistency of different data types after a reload} { r flushdb @@ -102,12 +102,19 @@ start_server {tags {"other"}} { r flushdb r set x 10 r expire x 1000 - r save - r debug reload + if {$::diskstore} { + r debug flushcache + } else { + r save + r debug reload + } set ttl [r ttl x] set e1 [expr {$ttl > 900 && $ttl <= 1000}] - r bgrewriteaof - waitForBgrewriteaof r + if {!$::diskstore} { + r bgrewriteaof + waitForBgrewriteaof r + r debug loadaof + } set ttl [r ttl x] set e2 [expr {$ttl > 900 && $ttl <= 1000}] list $e1 $e2