diff options
Diffstat (limited to 'examples/redis-unstable/tests/support/tmpfile.tcl')
| -rw-r--r-- | examples/redis-unstable/tests/support/tmpfile.tcl | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/examples/redis-unstable/tests/support/tmpfile.tcl b/examples/redis-unstable/tests/support/tmpfile.tcl deleted file mode 100644 index 809f587..0000000 --- a/examples/redis-unstable/tests/support/tmpfile.tcl +++ /dev/null @@ -1,15 +0,0 @@ -set ::tmpcounter 0 -set ::tmproot "./tests/tmp" -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]] - file mkdir $dir - set _ $dir -} - -# return a filename unique to this process to write to -proc tmpfile {basename} { - file join $::tmproot $basename.[pid].[incr ::tmpcounter] -} |
