regress: Add test for dlock pb

diff --git a/regress/tests/vtape-big-test-changer b/regress/tests/vtape-big-test-changer
index 1c8e81f6d52e03a4c920ae4d5a9b37aed520229b..f95993d3342d34a786c52dae41ef5d859237b9aa 100755 (executable)
--- a/regress/tests/vtape-big-test-changer
+++ b/regress/tests/vtape-big-test-changer
@@ -23,12 +23,19 @@ cp $rscripts/bacula-dir-vtape.conf $conf/bacula-dir.conf
 cp $rscripts/bacula-sd-vtape.conf $conf/bacula-sd.conf
 scripts/prepare-fake-autochanger 300
 
+perl -Mscripts::functions \
+    -e "set_maximum_concurent_jobs('$conf/bacula-dir.conf', 100)"
+perl -Mscripts::functions \
+    -e "set_maximum_concurent_jobs('$conf/bacula-sd.conf', 100)"
+perl -Mscripts::functions \
+    -e "set_maximum_concurent_jobs('$conf/bacula-fd.conf', 100)"
+
 echo "${cwd}/build" >${cwd}/tmp/file-list
 
 start_test
 
-when1=`perl -MPOSIX -e "print strftime('%F %T', localtime(time+30))"`
-when2=`perl -MPOSIX -e "print strftime('%F %T', localtime(time+45))"`
+when1=`perl -Mscripts::functions -e "get_time(30)"`
+when2=`perl -Mscripts::functions -e "get_time(45)"`
 
 clientname=`awk '/Name = .*-fd/ { if (!ok) { print $3 ; ok=1 } }' bin/bacula-dir.conf`
 
@@ -61,35 +68,48 @@ run level=full storage=LTO3 when="$when1" job=NightlySave6 pool=Default yes
 run level=full storage=LTO3 when="$when1" job=NightlySave7 pool=Default yes
 run level=full storage=LTO3 when="$when1" job=NightlySave8 pool=Inc     yes
 run level=full storage=LTO3 when="$when1" job=NightlySave9 pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave10  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave11  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave12  pool=Inc     yes
-run level=full storage=LTO3 when="$when1" job=NightlySave13  pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave14  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave15  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave16  pool=Inc     yes
-run level=full storage=LTO3 when="$when1" job=NightlySave17  pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave18  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave19  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave20  pool=Inc     yes
-run level=full storage=LTO3 when="$when1" job=NightlySave21  pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave22  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave23  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave24  pool=Inc     yes
-run level=full storage=LTO3 when="$when1" job=NightlySave25  pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave26  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave27  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave28  pool=Inc     yes
-run level=full storage=LTO3 when="$when1" job=NightlySave29  pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave30  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave31  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave32  pool=Inc     yes
-run level=full storage=LTO3 when="$when1" job=NightlySave33  pool=Full    yes
-run level=full storage=LTO3 when="$when1" job=NightlySave34  pool=Default yes
-run level=full storage=LTO3 when="$when1" job=NightlySave35  pool=Default yes
-wait jobid=1
-restore client=$clientname fileset="Full Set" pool=Inc where=${cwd}/tmp/bacula-restores1 select all done
-yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave10  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave11  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave12  pool=Inc     yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave13  pool=Full    yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave14  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave15  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave16  pool=Inc     yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave17  pool=Full    yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave18  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave19  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave20  pool=Inc     yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave21  pool=Full    yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave22  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave23  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave24  pool=Inc     yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave25  pool=Full    yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave26  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave27  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave28  pool=Inc     yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave29  pool=Full    yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave30  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave31  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave32  pool=Inc     yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave33  pool=Full    yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave34  pool=Default yes
+@#run level=full storage=LTO3 when="$when1" job=NightlySave35  pool=Default yes
+@sleep 50
+@#wait jobid=1
+@#restore client=$clientname fileset="Full Set" pool=Inc where=${cwd}/tmp/bacula-restores1 select all done
+@#yes
+@#sleep 30
+cancel
+1
+@sleep 1
+cancel
+1
+@sleep 1
+cancel
+1
+@sleep 1
+cancel
+1
 wait
 messages
 quit