diff options
author | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-30 13:50:36 +0100 |
---|---|---|
committer | Ian Jackson <ijackson@chiark.greenend.org.uk> | 2015-05-31 12:21:36 +0100 |
commit | 6d69f86475d897aaf3b565d24ceaf21640c615f7 (patch) | |
tree | 6d2aa88ddcbb4eda0d34848a7860511e9115db15 /tests/lib | |
parent | cbe483c32df06d2babbcf99d7ee947c645e7aea3 (diff) |
Test suite: Allow for t-stunt to override Perl modules
Diffstat (limited to 'tests/lib')
-rw-r--r-- | tests/lib | 25 |
1 files changed, 18 insertions, 7 deletions
@@ -323,17 +323,28 @@ t-822-field () { ' <$file } +t-stunt-envvar () { + local var=$1 + local tstunt=$2 + eval ' + case "'$var'" in + "$tstunt:"*) ;; + *":$tstunt:"*) ;; + *) '$var'="$tstunt:$'$var'" ;; + esac + ' +} + t-tstunt () { local tstunt=$tmp/tstunt - mkdir -p $tstunt - case "$PATH" in - "$tstunt:"*) ;; - *":$tstunt:"*) ;; - *) PATH="$tstunt:$PATH" ;; - esac + t-stunt-envvar PATH $tstunt + t-stunt-envvar PERLLIB $tstunt local f for f in "$@"; do - ln -sf "$troot/tstunt/$f" "$tstunt"/. + f="./$f" + local d="$tstunt/${f%/*}" + mkdir -p $d + ln -sf "$troot/tstunt/$f" "$d"/. done } |