Make out of freespace non-fatal for removable devices -- i.e. behaves like tape

[bacula/bacula] / regress / tests / action-on-purge-test

diff --git a/regress/tests/action-on-purge-test b/regress/tests/action-on-purge-test
index cf96c529d664b4dc01ff21cb3066e3f464e59438..0d013bdcf8cbe96138af9b38bc90a48d9ed88879 100755 (executable)
--- a/regress/tests/action-on-purge-test
+++ b/regress/tests/action-on-purge-test
@@ -1,5 +1,8 @@
 #!/bin/sh
 #
+# Copyright (C) 2000-2017 Kern Sibbald
+# License: BSD 2-Clause; see file LICENSE-FOSS
+#
 #
 TestName="action-on-purge-test"
 JobName=FIFOTest
@@ -10,22 +13,6 @@ scripts/cleanup
 scripts/copy-test-confs
 
 echo $src > $tmp/file-list
-echo $cwd/tmp/bfifo >> $tmp/file-list
-rm -f ${cwd}/tmp/bfifo
-mkfifo ${cwd}/tmp/bfifo
-# send a file into the fifo
-(
-echo test1 >$cwd/tmp/bfifo
-print_debug FIRST ECHO
-/bin/sleep 5
-echo test2 >$cwd/tmp/bfifo
-print_debug SECOND ECHO
-/bin/sleep 5
-echo test2 >$cwd/tmp/bfifo
-print_debug THIRD ECHO
-/bin/sleep 5
-cat > $cwd/tmp/bfifo &
-)&
 
 sed 's/Pool Type = Backup/Pool Type = Backup; ActionOnPurge = Truncate/' $conf/bacula-dir.conf > $tmp/1
 cp $tmp/1 $conf/bacula-dir.conf
@@ -73,7 +60,7 @@ run level=full job=$JobName yes
 wait
 messages
 @#########################################################
-@# Run a 4th job that will wait on fifo, and try to purge volume
+@# Run a 4th job
 @#########################################################
 @$out $tmp/log5.out
 update volume=TestVolume003 volstatus=Used
@@ -81,36 +68,91 @@ label storage=File volume=TestVolume004
 messages
 @$out $tmp/log1.out
 run level=full job=$JobName yes
-@#wait mount
-@sleep 5
+wait
 messages
 list volume
-setdebug level=100 storage=File
-@# try to purge TestVolume004 (should fail, in use)
-purge volume=TestVolume004 
-@# try to purge TestVolume003 (should fail, drive busy)
-purge volume=TestVolume003
-setdebug level=0 storage=File
-list volume
-sql
-select VolumeName, VolStatus, ActionOnPurge FROM Media;
-
+@$out $tmp/log1.out
+update volume=TestVolume004 volstatus=Used
+label storage=File volume=TestVolume005
+run level=full job=$JobName yes
 wait
+messages
+@$out $tmp/log6.out
 @#########################################################
-@# Test ActionOnPurge=Truncate Volume size should be small
-@#########################################################
-purge volume=TestVolume001
-list volume
-@#########################################################
-@# Test ActionOnPurge=Truncate, then update it to None
-@# Volume size should be normal
+@# tests
 @#########################################################
 update volume=TestVolume002 actiononpurge=none
+purge volume=TestVolume001
 purge volume=TestVolume002
+purge volume=TestVolume003
+purge volume=TestVolume004
+list volume
+sql
+select VolumeName, VolStatus, ActionOnPurge FROM Media;
+
+setdebug level=100 director
+quit
+END_OF_DATA
+
+run_bacula
+check_for_zombie_jobs storage=File
+
+print_debug "Check all media"
+for i in 1 2 3 4 5 ; do
+  size=`du -b $tmp/TestVolume00$i|cut -f1`
+  if test $size -lt 5000 ; then
+     print_debug "ERROR 2: Volume TestVolum00$i is too small $size"
+     ls -l $tmp/TestVolume00$i
+     estat=2
+  fi
+done
+
+echo "purge volume=TestVolume001 action storage=File" > $tmp/bconcmds
+run_bconsole
+
+for i in  2 3 4 5 ; do
+  size=`du -b $tmp/TestVolume00$i|cut -f1`
+  if test $size -lt 5000 ; then
+     print_debug "ERROR 3: Volume TestVolum00$i is too small $size"
+     ls -l $tmp/TestVolume00$i
+     estat=3
+  fi
+done
+for i in 1 ; do
+  size=`du -b $tmp/TestVolume00$i|cut -f1`
+  if test $size -gt 5000 ; then
+     print_debug "ERROR 4: Volume TestVolum00$i is not truncated (too big) $size"
+     ls -l $tmp/TestVolume00$i
+     estat=4
+  fi
+done
+
+echo "purge volume action storage=File" > $tmp/bconcmds
+run_bconsole
+
+for i in  2 5 ; do
+  size=`du -b $tmp/TestVolume00$i|cut -f1`
+  if test $size -lt 5000 ; then
+     print_debug "ERROR 5: Volume TestVolum00$i is too small $size"
+     ls -l $tmp/TestVolume00$i
+     estat=5
+  fi
+done
+for i in 1 3 4 ; do
+  size=`du -b $tmp/TestVolume00$i|cut -f1`
+  if test $size -gt 5000 ; then
+     print_debug "ERROR 6: Volume TestVolum00$i is not truncated (too big) $size"
+     ls -l $tmp/TestVolume00$i
+     estat=6
+  fi
+done
+
+cat <<END_OF_DATA > $tmp/bconcmds
 @#########################################################
 @# Display catalog settings for Pool and Media
 @#########################################################
 @$out $tmp/log4.out
+setdebug level=0 director
 sql
 select VolumeName, ActionOnPurge FROM Media;
 select Name, ActionOnPurge FROM Pool;
@@ -119,34 +161,13 @@ wait
 quit
 END_OF_DATA
 
-run_bacula
-check_for_zombie_jobs storage=File 
+run_bconsole
+
 stop_bacula
 
 touch $tmp/log2.out
 check_two_logs
 
-print_debug "Test TestVolume001 size"
-perl -e "die 'Volume size too big' if (-s '$tmp/TestVolume001' > 4096)"
-if [ $? != 0 ]; then
-    print_debug `ls -l $tmp/TestVolume001`
-    estat=2
-fi
-
-print_debug "Test TestVolume002 size"
-perl -e "die 'Volume size too small' if (-s '$tmp/TestVolume002' < 4096)"
-if [ $? != 0 ]; then
-    print_debug `ls -l $tmp/TestVolume002`
-    estat=2
-fi
-
-print_debug "Test TestVolume003 size (drive busy)"
-perl -e "die 'Volume size too small' if (-s '$tmp/TestVolume003' < 4096)"
-if [ $? != 0 ]; then
-    print_debug `ls -l $tmp/TestVolume003`
-    estat=2
-fi
-
 print_debug "Test if Pool record is ok"
 r=`awk '/Default/ { print $4 }' $tmp/log4.out`
 if [ "$r" != 1 ]; then