chiark
/
gitweb
/
~ianmdlvl
/
secnet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
| inline |
side by side
stest: When SECNET_STEST_DIVERT_* set, print diverted command too
[secnet.git]
/
test-common.tcl
diff --git
a/test-common.tcl
b/test-common.tcl
index 162ad3a0b7187bc6c34fb8df841a91a61a3217ff..04d229c08ad138ed04e63e82de8cd56f5a55c116 100644
(file)
--- a/
test-common.tcl
+++ b/
test-common.tcl
@@
-7,6
+7,11
@@
proc prefix_some_path {pathvar entry} {
set env($pathvar) [join $l :]
}
+proc prexec {args} {
+ puts "exec $args"
+ eval exec $args
+}
+
if {![catch {
set builddir $env(SECNET_TEST_BUILDDIR)
}]} {} else {