2 set ::tmproot "./tests/tmp"
5 # returns a dirname unique to this process to write to
6 proc tmpdir
{basename
} {
7 set dir
[file join $::tmproot $basename.
[pid].
[incr ::tmpcounter]]
12 # return a filename unique to this process to write to
13 proc tmpfile
{basename
} {
14 file join $::tmproot $basename.
[pid].
[incr ::tmpcounter]