X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=regress%2Ftests%2Ftruncate-test;fp=regress%2Ftests%2Ftruncate-test;h=a5b1aa7fab724d09422c5c312282eeefae38b73f;hb=eedb255c47c46d20ad211ab368361131b8dad0c9;hp=a86e38d867c2c77e1461b5d415cd186cb49d01d5;hpb=9595ad69c91bf9f7cd394af5ad423bb5f560d550;p=bacula%2Fbacula

diff --git a/regress/tests/truncate-test b/regress/tests/truncate-test
index a86e38d867..a5b1aa7fab 100755
--- 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