diff options
Diffstat (limited to 'tests/integration')
| -rw-r--r-- | tests/integration/aof.tcl | 46 | ||||
| -rw-r--r-- | tests/integration/rdb.tcl | 2 | ||||
| -rw-r--r-- | tests/integration/replication.tcl | 42 |
3 files changed, 85 insertions, 5 deletions
diff --git a/tests/integration/aof.tcl b/tests/integration/aof.tcl index 3d8c08c51..1f73fc341 100644 --- a/tests/integration/aof.tcl +++ b/tests/integration/aof.tcl @@ -632,4 +632,50 @@ tags {"aof external:skip"} { } result assert_match "*Failed to truncate AOF*to timestamp*because it is not the last file*" $result } + + start_server {overrides {appendonly yes appendfsync always}} { + test {FLUSHDB / FLUSHALL should persist in AOF} { + set aof [get_last_incr_aof_path r] + + r set key value + r flushdb + r set key value2 + r flushdb + + # DB is empty + r flushdb + r flushdb + r flushdb + + r set key value + r flushall + r set key value2 + r flushall + + # DBs are empty. + r flushall + r flushall + r flushall + + # Assert that each FLUSHDB command is persisted even the DB is empty. + # Assert that each FLUSHALL command is persisted even the DBs are empty. + assert_aof_content $aof { + {select *} + {set key value} + {flushdb} + {set key value2} + {flushdb} + {flushdb} + {flushdb} + {flushdb} + {set key value} + {flushall} + {set key value2} + {flushall} + {flushall} + {flushall} + {flushall} + } + } + } } diff --git a/tests/integration/rdb.tcl b/tests/integration/rdb.tcl index 652431ee7..326a17350 100644 --- a/tests/integration/rdb.tcl +++ b/tests/integration/rdb.tcl @@ -278,7 +278,7 @@ start_server {overrides {save ""}} { set current_save_keys_total [s current_save_keys_total] if {$::verbose} { - puts "Keys before bgsave start: current_save_keys_total" + puts "Keys before bgsave start: $current_save_keys_total" } # on each iteration, we will write some key to the server to trigger copy-on-write, and diff --git a/tests/integration/replication.tcl b/tests/integration/replication.tcl index 44915be1b..d60c91918 100644 --- a/tests/integration/replication.tcl +++ b/tests/integration/replication.tcl @@ -225,11 +225,45 @@ start_server {tags {"repl external:skip"}} { } } - test {FLUSHALL should replicate} { + test {FLUSHDB / FLUSHALL should replicate} { + set repl [attach_to_replication_stream] + + r -1 set key value + r -1 flushdb + + r -1 set key value2 + r -1 flushall + + wait_for_ofs_sync [srv 0 client] [srv -1 client] + assert_equal [r -1 dbsize] 0 + assert_equal [r 0 dbsize] 0 + + # DB is empty. + r -1 flushdb + r -1 flushdb + r -1 flushdb + + # DBs are empty. r -1 flushall - if {$::valgrind} {after 2000} - list [r -1 dbsize] [r 0 dbsize] - } {0 0} + r -1 flushall + r -1 flushall + + # Assert that each FLUSHDB command is replicated even the DB is empty. + # Assert that each FLUSHALL command is replicated even the DBs are empty. + assert_replication_stream $repl { + {set key value} + {flushdb} + {set key value2} + {flushall} + {flushdb} + {flushdb} + {flushdb} + {flushall} + {flushall} + {flushall} + } + close_replication_stream $repl + } test {ROLE in master reports master with a slave} { set res [r -1 role] |