Use writev(2) if glue output buffers is disabled

[redis.git] / test-redis.tcl

diff --git a/test-redis.tcl b/test-redis.tcl
index 1ca5e21acba831c8b4ff96fb9714ade8543ac915..400b0db5e464302f4d10ca73385d7bd6e06d5851 100644 (file)
--- a/test-redis.tcl
+++ b/test-redis.tcl
@@ -912,6 +912,10 @@ proc main {server port} {
         lappend aux [$r dbsize]
     } {0 0}
 
+    test {Perform a final SAVE to leave a clean DB on disk} {
+        $r save
+    } {OK}
+
     puts "\n[expr $::passed+$::failed] tests, $::passed passed, $::failed failed"
     if {$::failed > 0} {
         puts "\n*** WARNING!!! $::failed FAILED TESTS ***\n"