/
githubmirror
/
redis
Обзор
Документация
Войти
/
githubmirror
/
redis
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
unstable
tests/support/tmpfile.tcl
15 строк
403 B
antirez
Initial implementation of a client-server parallel testing system for Redis in order to speedup execution of the test suite.
11 июл 2011, 01:25
11 июл 2011, 01:25
1356608
Код
Авторство
О чём код?
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] }