test-common.tcl

   1
   2 proc prefix_some_path {pathvar entry} {
   3     global env
   4     set l {}
   5     catch { set l [split $env($pathvar) :] }
   6     set l [concat [list $entry] $l]
   7     set env($pathvar) [join $l :]
   8 }
   9
  10 if {![catch {
  11     set builddir $env(SECNET_TEST_BUILDDIR)
  12 }]} {} else {
  13     set builddir .
  14 }
  15
  16 if {![catch {
  17     set tmp $env(AUTOPKGTEST_ARTIACTS)
  18 }]} {} elseif {![catch {
  19     set tmp $env(AUTOPKGTEST_TMP)
  20 }]} {} elseif {[regsub {^(?:\./)?([sm]test)/t-} $argv0 {\1/d-} tmp]} {
  21     set tmp $builddir/$tmp
  22     file mkdir $tmp
  23 }