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: Replace the call to `exit 1' with a new proc `finish'
[secnet.git]
/
stest
/
common.tcl
diff --git
a/stest/common.tcl
b/stest/common.tcl
index 9dff1f05adf37a701303ea45f547ea48745588b6..064d8740fe245b9295e2688dfc618f641d448b6d 100644
(file)
--- a/
stest/common.tcl
+++ b/
stest/common.tcl
@@
-180,7
+180,7
@@
$message
----------------------------------------
"
}
----------------------------------------
"
}
-
exit
1
+
finish
1
}
proc sendpkt {} {
}
proc sendpkt {} {
@@
-206,6
+206,11
@@
proc prefix_preload {lib} { prefix_some_path LD_PRELOAD $lib }
set env(UDP_PRELOAD_DIR) $socktmp
prefix_preload $builddir/stest/udp-preload.so
set env(UDP_PRELOAD_DIR) $socktmp
prefix_preload $builddir/stest/udp-preload.so
+proc finish {estatus} {
+ puts stderr "FINISHING $estatus"
+ exit $estatus
+}
+
proc udp-proxy {} {
global socktmp udpsock
set u $socktmp/udp
proc udp-proxy {} {
global socktmp udpsock
set u $socktmp/udp