No functional change.
Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
+source test-common.tcl
+
package require Tclx
load chiark_tcl_hbytes-1.so
[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 /
--- /dev/null
+
+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
+}