From: Ian Jackson <ijackson@chiark.greenend.org.uk>
Date: Sun, 20 Oct 2019 10:58:07 +0000 (+0100)
Subject: tests: Break out prefix_some_path
X-Git-Tag: v0.5.0~67
X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ianmdlvl/git?a=commitdiff_plain;h=e03ade9bc7d133b33f5db2302e1ac60bd3a33b77;p=secnet.git

tests: Break out prefix_some_path

This incidentally fixes a bug: previously, we wrote PRELOAD rather
than LD_PRELOAD in one place, which meant that existing LD_PRELOADs
would be overwritten.  Now they no longer are.

Signed-off-by: Ian Jackson <ijackson@chiark.greenend.org.uk>
---

diff --git a/stest/common.tcl b/stest/common.tcl
index 21ed960..7a4c893 100644
--- a/stest/common.tcl
+++ b/stest/common.tcl
@@ -169,13 +169,7 @@ set socktmp $tmp/s
 exec mkdir -p -m700 $socktmp
 regsub {^(?!/)} $socktmp {./} socktmp ;# dgram-socket wants ./ or /
 
-proc prefix_preload {lib} {
-    global env
-    set l {}
-    catch { set l [split $env(PRELOAD) :] }
-    set l [concat [list $lib] $l]
-    set env(LD_PRELOAD) [join $l :]
-}
+proc prefix_preload {lib} { prefix_some_path LD_PRELOAD $lib }
 
 set env(UDP_PRELOAD_DIR) $socktmp
 prefix_preload $builddir/stest/udp-preload.so
diff --git a/test-common.tcl b/test-common.tcl
index 2e70f08..47b867d 100644
--- a/test-common.tcl
+++ b/test-common.tcl
@@ -1,4 +1,12 @@
 
+proc prefix_some_path {pathvar entry} {
+    global env
+    set l {}
+    catch { set l [split $env($pathvar) :] }
+    set l [concat [list $entry] $l]
+    set env($pathvar) [join $l :]
+}
+
 if {![catch {
     set builddir $env(STEST_BUILDDIR)
 }]} {} else {