X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/c14753cea16cc963363b0d3002dc94b33c1f2075..994ed2bc552f4114b1f0c8dd3fd8aefaec6beeae:/tests/support/tmpfile.tcl

diff --git a/tests/support/tmpfile.tcl b/tests/support/tmpfile.tcl
index 809f5873..287b0931 100644
--- a/tests/support/tmpfile.tcl
+++ b/tests/support/tmpfile.tcl
@@ -4,7 +4,13 @@ file mkdir $::tmproot
 
 # returns a dirname unique to this process to write to
 proc tmpdir {basename} {
-    set dir [file join $::tmproot $basename.[pid].[incr ::tmpcounter]]
+    if {$::diskstore} {
+        # For diskstore we want to use the same dir again and again
+        # otherwise everything is too slow.
+        set dir [file join $::tmproot $basename.diskstore]
+    } else {
+        set dir [file join $::tmproot $basename.[pid].[incr ::tmpcounter]]
+    }
     file mkdir $dir
     set _ $dir
 }