regress: make truncate-test check for wrongly truncating an already truncated volume

diff --git a/regress/tests/truncate-test b/regress/tests/truncate-test
index a86e38d867c2c77e1461b5d415cd186cb49d01d5..a5b1aa7fab724d09422c5c312282eeefae38b73f 100755 (executable)
--- a/regress/tests/truncate-test
+++ b/regress/tests/truncate-test
@@ -93,6 +93,7 @@ sql
 select VolumeName, VolStatus, ActionOnPurge FROM Media;
 
 setdebug level=100 director
+messages
 wait
 quit
 END_OF_DATA
@@ -187,6 +188,7 @@ select VolumeName, ActionOnPurge FROM Media;
 select Name, ActionOnPurge FROM Pool;
 
 wait
+messages
 quit
 END_OF_DATA
 
@@ -218,4 +220,29 @@ if [ "$r" != 0 ]; then
     estat=7
 fi
 
+# Now test if the truncate command truncates labeled Volumes
+cat >tmp/bconcmds <<END_OF_DATA
+truncate allpools storage=File
+messages
+wait
+@$out $tmp/log6.out
+@# These truncates should not truncate any Volumes
+truncate allpools storage=File
+truncate allpools storage=File
+truncate allpools storage=File
+wait
+messages
+quit
+END_OF_DATA
+
+run_bacula
+stop_bacula
+
+grep "has been truncated" $tmp/log6.out >$tmp/log7.out
+if [ $? = 0 ] ; then
+    cat $tmp/log7.out
+    print_debug "ERROR 8: truncated volumes are truncated multiple times"
+    estat=8
+fi
+
 end_test