chiark / gitweb /
docs: Fix rsapriv/rsapub closure names
[secnet.git] / 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 }