initial fix of the test suite to run both in in-memory and diskstore mode

1 files changed, 7 insertions, 1 deletions

diff --git a/tests/support/tmpfile.tcl b/tests/support/tmpfile.tcl
index 809f58730..287b09317 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
 }