chiark
/
gitweb
/
~ianmdlvl
/
secnet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
rsa1: Wrap calls to keyfile_get* in a macro
[secnet.git]
/
test-common.tcl
diff --git
a/test-common.tcl
b/test-common.tcl
index 04def333a1690acf1493b545e814019d1721d627..04d229c08ad138ed04e63e82de8cd56f5a55c116 100644
(file)
--- a/
test-common.tcl
+++ b/
test-common.tcl
@@
-7,8
+7,13
@@
proc prefix_some_path {pathvar entry} {
set env($pathvar) [join $l :]
}
set env($pathvar) [join $l :]
}
+proc prexec {args} {
+ puts "exec $args"
+ eval exec $args
+}
+
if {![catch {
if {![catch {
- set builddir $env(STEST_BUILDDIR)
+ set builddir $env(S
ECNET_
TEST_BUILDDIR)
}]} {} else {
set builddir .
}
}]} {} else {
set builddir .
}
@@
-17,7
+22,7
@@
if {![catch {
set tmp $env(AUTOPKGTEST_ARTIACTS)
}]} {} elseif {![catch {
set tmp $env(AUTOPKGTEST_TMP)
set tmp $env(AUTOPKGTEST_ARTIACTS)
}]} {} elseif {![catch {
set tmp $env(AUTOPKGTEST_TMP)
-}]} {} elseif {[regsub {^([sm]test)/t-} $argv0 {\1/d-} tmp]} {
+}]} {} elseif {[regsub {^(
?:\./)?(
[sm]test)/t-} $argv0 {\1/d-} tmp]} {
set tmp $builddir/$tmp
file mkdir $tmp
}
set tmp $builddir/$tmp
file mkdir $tmp
}