diff options
| author | Mitja Felicijan <mitja.felicijan@gmail.com> | 2026-01-21 22:52:54 +0100 |
|---|---|---|
| committer | Mitja Felicijan <mitja.felicijan@gmail.com> | 2026-01-21 22:52:54 +0100 |
| commit | dcacc00e3750300617ba6e16eb346713f91a783a (patch) | |
| tree | 38e2d4fb5ed9d119711d4295c6eda4b014af73fd /examples/redis-unstable/tests/integration/aof-race.tcl | |
| parent | 58dac10aeb8f5a041c46bddbeaf4c7966a99b998 (diff) | |
| download | crep-dcacc00e3750300617ba6e16eb346713f91a783a.tar.gz | |
Remove testing data
Diffstat (limited to 'examples/redis-unstable/tests/integration/aof-race.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/integration/aof-race.tcl | 37 |
1 files changed, 0 insertions, 37 deletions
diff --git a/examples/redis-unstable/tests/integration/aof-race.tcl b/examples/redis-unstable/tests/integration/aof-race.tcl deleted file mode 100644 index 839858b..0000000 --- a/examples/redis-unstable/tests/integration/aof-race.tcl +++ /dev/null | |||
| @@ -1,37 +0,0 @@ | |||
| 1 | source tests/support/aofmanifest.tcl | ||
| 2 | set defaults { appendonly {yes} appendfilename {appendonly.aof} appenddirname {appendonlydir} aof-use-rdb-preamble {no} } | ||
| 3 | set server_path [tmpdir server.aof] | ||
| 4 | |||
| 5 | tags {"aof external:skip"} { | ||
| 6 | # Specific test for a regression where internal buffers were not properly | ||
| 7 | # cleaned after a child responsible for an AOF rewrite exited. This buffer | ||
| 8 | # was subsequently appended to the new AOF, resulting in duplicate commands. | ||
| 9 | start_server_aof [list dir $server_path] { | ||
| 10 | set client [redis [srv host] [srv port] 0 $::tls] | ||
| 11 | set bench [open "|src/redis-benchmark -q -s [srv unixsocket] -c 20 -n 20000 incr foo" "r+"] | ||
| 12 | |||
| 13 | wait_for_condition 100 1 { | ||
| 14 | [$client get foo] > 0 | ||
| 15 | } else { | ||
| 16 | # Don't care if it fails. | ||
| 17 | } | ||
| 18 | |||
| 19 | # Benchmark should be running by now: start background rewrite | ||
| 20 | $client bgrewriteaof | ||
| 21 | |||
| 22 | # Read until benchmark pipe reaches EOF | ||
| 23 | while {[string length [read $bench]] > 0} {} | ||
| 24 | |||
| 25 | waitForBgrewriteaof $client | ||
| 26 | |||
| 27 | # Check contents of foo | ||
| 28 | assert_equal 20000 [$client get foo] | ||
| 29 | } | ||
| 30 | |||
| 31 | # Restart server to replay AOF | ||
| 32 | start_server_aof [list dir $server_path] { | ||
| 33 | set client [redis [srv host] [srv port] 0 $::tls] | ||
| 34 | wait_done_loading $client | ||
| 35 | assert_equal 20000 [$client get foo] | ||
| 36 | } | ||
| 37 | } | ||
