From 10464758cdcee126c5bce563ac8bfd53d026661f Mon Sep 17 00:00:00 2001 From: Eric Bollengier Date: Mon, 2 Aug 2010 09:50:49 +0200 Subject: [PATCH] regress: raise an error if we don t have two "list jobs" --- regress/scripts/functions.pm | 18 ++++++++++++------ 1 file changed, 12 insertions(+), 6 deletions(-) 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; } -- 2.39.2