From: Kern Sibbald <kern@sibbald.com>
Date: Sun, 29 Oct 2017 11:36:41 +0000 (+0100)
Subject: regress: make truncate-test check for wrongly truncating an already truncated volume
X-Git-Tag: Release-9.0.5~24
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=eedb255c47c46d20ad211ab368361131b8dad0c9;p=bacula%2Fbacula

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 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