regress: Adapt check_jobmedia() for incomplete jobs

diff --git a/regress/scripts/functions b/regress/scripts/functions
index ca675de7423f19222f1d72c4c622c898a8a6d743..4689804cf4d807f69a3200fd94370bb4d50225a9 100644 (file)
--- a/regress/scripts/functions
+++ b/regress/scripts/functions
@@ -7,6 +7,10 @@
 
 . ./config
 
+if [ "$TestName" ]; then
+   export TestName
+fi
+
 check_encoding()
 {
    if ${bin}/bacula-dir -d50 -t -c ${conf}/bacula-dir.conf 2>&1 | grep 'Wanted SQL_ASCII, got UTF8' >/dev/null ; then

diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm
index 2c4f52240bf02c62be357fa37bfe48fed6fe89f6..b71752b2012f46b5bdb232a41650953a225bc77f 100644 (file)
--- a/regress/scripts/functions.pm
+++ b/regress/scripts/functions.pm
@@ -116,7 +116,7 @@ BEGIN {
     $ENV{LANG} = 'C';
     $out = ($debug) ? '@tee' : '@out';
 
-    $TestName = basename($0);
+    $TestName = $ENV{TestName} || basename($0);
 
     $dstat = $estat = $rstat = $bstat = $zstat = 0;
 }