From: Eric Bollengier <eric@eb.homelinux.org>
Date: Mon, 2 Aug 2010 07:50:49 +0000 (+0200)
Subject: regress: raise an error if we don t have two "list jobs"
X-Git-Tag: Release-5.2.1~1176
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=0a9ad7c39ec3f74fe16c485b419e8b995bf26041;p=bacula%2Fbacula

regress: raise an error if we don t have two "list jobs"
---

diff --git a/regress/scripts/functions.pm b/regress/scripts/functions.pm
index 5c5258fb1d..9fb4416cde 100644
--- a/regress/scripts/functions.pm
+++ b/regress/scripts/functions.pm
@@ -37,12 +37,14 @@ package scripts::functions;
 # perl -Mscripts::functions -e '' script
 use Exporter;
 our @ISA = qw(Exporter);
-our @EXPORT =  qw(update_some_files create_many_files check_multiple_copies
-                  update_client $HOST $BASEPORT add_to_backup_list check_volume_size
-                  create_many_dirs cleanup start_bacula stop_bacula get_resource
-                  set_maximum_concurrent_jobs get_time add_attribute check_prune_list
-                  check_min_volume_size check_max_volume_size $estat $bstat $rstat $zstat
-                  $cwd $bin $scripts $conf $rscripts $tmp $working extract_resource
+
+our @EXPORT = qw(update_some_files create_many_files check_multiple_copies
+                  update_client $HOST $BASEPORT add_to_backup_list
+                  check_volume_size create_many_dirs cleanup start_bacula
+                  stop_bacula get_resource set_maximum_concurrent_jobs get_time
+                  add_attribute check_prune_list check_min_volume_size
+                  check_max_volume_size $estat $bstat $rstat $zstat $cwd $bin
+                  $scripts $conf $rscripts $tmp $working extract_resource
                   $db_name $db_user $db_password $src $tmpsrc);
 
 
@@ -480,6 +482,10 @@ sub check_prune_list
             exit 1;
         }
     }
+    if ($nb_list_job != 2) {
+        print "ERROR: in $f, not enough 'list jobs'\n";
+        exit 1;
+    }
     exit 0;
 }