4 TestName="action-on-purge-test"
10 scripts/copy-test-confs
12 echo $src > $tmp/file-list
14 sed 's/Pool Type = Backup/Pool Type = Backup; ActionOnPurge = Truncate/' $conf/bacula-dir.conf > $tmp/1
15 cp $tmp/1 $conf/bacula-dir.conf
19 cat >tmp/bconcmds <<END_OF_DATA
23 label storage=File volume=TestVolume001
24 @########################################################
25 @# Run a first job on TestVolume001
26 @########################################################
27 run level=full job=$JobName yes
31 @#restore where=${cwd}/tmp/bacula-restores select all storage=File done
35 @#########################################################
36 @# Run a second job on TestVolume002
37 @#########################################################
39 label storage=File volume=TestVolume002
40 update volume=TestVolume001 volstatus=Used
44 run level=full job=$JobName yes
47 @#########################################################
48 @# Run a 3th job on TestVolume003
49 @#########################################################
51 update volume=TestVolume002 volstatus=Used
52 label storage=File volume=TestVolume003
56 run level=full job=$JobName yes
59 @#########################################################
61 @#########################################################
63 update volume=TestVolume003 volstatus=Used
64 label storage=File volume=TestVolume004
67 run level=full job=$JobName yes
72 update volume=TestVolume004 volstatus=Used
73 label storage=File volume=TestVolume005
74 run level=full job=$JobName yes
78 @#########################################################
80 @#########################################################
81 update volume=TestVolume002 actiononpurge=none
82 purge volume=TestVolume001
83 purge volume=TestVolume002
84 purge volume=TestVolume003
85 purge volume=TestVolume004
88 select VolumeName, VolStatus, ActionOnPurge FROM Media;
90 setdebug level=100 director
95 check_for_zombie_jobs storage=File
97 print_debug "Check all media"
98 perl -Mscripts::functions -e 'foreach $i (1..5){check_min_volume_size(4096,"TestVolume00$i")}'
101 print_debug `ls -l $tmp`
102 print_debug "Initialization problem"
106 echo "purge volume=TestVolume001 action storage=File" > $tmp/bconcmds
109 perl -Mscripts::functions -e '
110 check_min_volume_size(4096, "TestVolume002","TestVolume003","TestVolume004","TestVolume005");
111 check_max_volume_size(4096, "TestVolume001")'
114 print_debug `ls -l $tmp`
119 echo "purge volume action storage=File" > $tmp/bconcmds
122 perl -Mscripts::functions -e '
123 check_min_volume_size(4096, "TestVolume002", "TestVolume005");
124 check_max_volume_size(4096, "TestVolume001", "TestVolume003", "TestVolume004")'
127 print_debug `ls -l $tmp`
133 cat <<END_OF_DATA > $tmp/bconcmds
134 @#########################################################
135 @# Display catalog settings for Pool and Media
136 @#########################################################
138 setdebug level=0 director
140 select VolumeName, ActionOnPurge FROM Media;
141 select Name, ActionOnPurge FROM Pool;
154 print_debug "Test if Pool record is ok"
155 r=`awk '/Default/ { print $4 }' $tmp/log4.out`
156 if [ "$r" != 1 ]; then
157 print_debug "ActionOnPurge on Pool record should be 1 ($r)"
161 print_debug "Test TestVolume001 if Media record is ok"
162 r=`awk '/TestVolume001/ { print $4 }' $tmp/log4.out`
163 if [ "$r" != 1 ]; then
164 print_debug "ActionOnPurge on Media record should be 1"
168 print_debug "Test TestVolume002 if Media record is ok"
169 r=`awk '/TestVolume002/ { print $4 }' $tmp/log4.out`
170 if [ "$r" != 0 ]; then
171 print_debug "ActionOnPurge on Media record should be 0"