tests: Break out test-common.tcl

[secnet.git] / stest / common.tcl

diff --git a/stest/common.tcl b/stest/common.tcl
index 492e146e77e57037f2cd72ceafca9109fb2ad4e1..21ed960138f1b9a99cb98e388d6eba2cc2d20c63 100644 (file)
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -1,3 +1,5 @@
+source test-common.tcl
+
 package require Tclx
 
 load chiark_tcl_hbytes-1.so
@@ -163,20 +165,6 @@ proc sendpkt {} {
        [hbytes h2raw c0[join $p ""]c0]
 }
 
-if {![catch {
-    set builddir $env(STEST_BUILDDIR)
-}]} {} else {
-    set builddir .
-}
-
-if {![catch {
-    set tmp $env(AUTOPKGTEST_ARTIACTS)
-}]} {} elseif {![catch {
-    set tmp $env(AUTOPKGTEST_TMP)
-}]} {} elseif {[regsub {^stest/t-} $argv0 {stest/d-} tmp]} {
-    set tmp $builddir/$tmp
-    file mkdir $tmp
-}
 set socktmp $tmp/s
 exec mkdir -p -m700 $socktmp
 regsub {^(?!/)} $socktmp {./} socktmp ;# dgram-socket wants ./ or /