test-common.tcl

   1
   2 if {![catch {
   3     set builddir $env(STEST_BUILDDIR)
   4 }]} {} else {
   5     set builddir .
   6 }
   7
   8 if {![catch {
   9     set tmp $env(AUTOPKGTEST_ARTIACTS)
  10 }]} {} elseif {![catch {
  11     set tmp $env(AUTOPKGTEST_TMP)
  12 }]} {} elseif {[regsub {^stest/t-} $argv0 {stest/d-} tmp]} {
  13     set tmp $builddir/$tmp
  14     file mkdir $tmp
  15 }