Test suite: Fix entirely-broken tstunt PERLLIB arrangements

[dgit.git] / tests / lib

diff --git a/tests/lib b/tests/lib
index 6668a1c72d5bd08b5daccaa94738f2038044ed4c..3294cdc0faa62924daa92d7f853a97fb41fd56f8 100644 (file)
--- a/tests/lib
+++ b/tests/lib
@@ -696,11 +696,13 @@ t-stunt-envvar () {
        local var=$1
        local tstunt=$2
        eval '
-               case "'$var'" in
+               case "$'$var'" in
                "$tstunt:"*)    ;;
                *":$tstunt:"*)  ;;
+               "")             '$var'="$tstunt" ;;
                *)              '$var'="$tstunt:$'$var'" ;;
                esac
+               export '$var'
        '
 }