From eedb255c47c46d20ad211ab368361131b8dad0c9 Mon Sep 17 00:00:00 2001
From: Kern Sibbald <kern@sibbald.com>
Date: Sun, 29 Oct 2017 12:36:41 +0100
Subject: [PATCH] regress: make truncate-test check for wrongly truncating an
 already truncated volume

---
 regress/tests/truncate-test | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)

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