test: Move sockets in a subdirectory

[secnet.git] / test / common.tcl

diff --git a/test/common.tcl b/test/common.tcl
index 189d5c77e4587d4d68b2864df3351182f8ede9d1..59b10baeef34ede637d0588832048172b6055be8 100644 (file)
--- a/test/common.tcl
+++ b/test/common.tcl
@@ -157,7 +157,8 @@ proc sendpkt {} {
 
 file mkdir test/tmp
 set tmp test/tmp
-set socktmp $tmp
+set socktmp $tmp/s
+exec mkdir -p -m700 $socktmp
 regsub {^(?!/)} $socktmp {./} socktmp ;# dgram-socket wants ./ or /
 
 proc prefix_preload {lib} {