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 proc prexec {args} {
  11     puts "exec $args"
  12     eval exec $args
  13 }
  14
  15 if {![catch {
  16     set builddir $env(SECNET_TEST_BUILDDIR)
  17 }]} {} else {
  18     set builddir .
  19 }
  20
  21 if {![catch {
  22     set tmp $env(AUTOPKGTEST_ARTIACTS)
  23 }]} {} elseif {![catch {
  24     set tmp $env(AUTOPKGTEST_TMP)
  25 }]} {} elseif {[regsub {^(?:\./)?([sm]test)/t-} $argv0 {\1/d-} tmp]} {
  26     set tmp $builddir/$tmp
  27     file mkdir $tmp
  28 }