3 # Copyright (C) 2000-2015 Kern Sibbald
4 # License: BSD 2-Clause; see file LICENSE-FOSS
9 TestName="action-on-purge-test"
15 scripts/copy-test-confs
17 echo $src > $tmp/file-list
19 sed 's/Pool Type = Backup/Pool Type = Backup; ActionOnPurge = Truncate/' $conf/bacula-dir.conf > $tmp/1
20 cp $tmp/1 $conf/bacula-dir.conf
24 cat >tmp/bconcmds <<END_OF_DATA
28 label storage=File volume=TestVolume001
29 @########################################################
30 @# Run a first job on TestVolume001
31 @########################################################
32 run level=full job=$JobName yes
36 @#restore where=${cwd}/tmp/bacula-restores select all storage=File done
40 @#########################################################
41 @# Run a second job on TestVolume002
42 @#########################################################
44 label storage=File volume=TestVolume002
45 update volume=TestVolume001 volstatus=Used
49 run level=full job=$JobName yes
52 @#########################################################
53 @# Run a 3th job on TestVolume003
54 @#########################################################
56 update volume=TestVolume002 volstatus=Used
57 label storage=File volume=TestVolume003
61 run level=full job=$JobName yes
64 @#########################################################
66 @#########################################################
68 update volume=TestVolume003 volstatus=Used
69 label storage=File volume=TestVolume004
72 run level=full job=$JobName yes
77 update volume=TestVolume004 volstatus=Used
78 label storage=File volume=TestVolume005
79 run level=full job=$JobName yes
83 @#########################################################
85 @#########################################################
86 update volume=TestVolume002 actiononpurge=none
87 purge volume=TestVolume001
88 purge volume=TestVolume002
89 purge volume=TestVolume003
90 purge volume=TestVolume004
93 select VolumeName, VolStatus, ActionOnPurge FROM Media;
95 setdebug level=100 director
100 check_for_zombie_jobs storage=File
102 print_debug "Check all media"
103 perl -Mscripts::functions -e 'foreach $i (1..5){check_min_volume_size(4096,"TestVolume00$i")}'
106 print_debug `ls -l $tmp`
107 print_debug "Initialization problem"
111 echo "purge volume=TestVolume001 action storage=File" > $tmp/bconcmds
114 perl -Mscripts::functions -e '
115 check_min_volume_size(4096, "TestVolume002","TestVolume003","TestVolume004","TestVolume005");
116 check_max_volume_size(4096, "TestVolume001")'
119 print_debug `ls -l $tmp`
124 echo "purge volume action storage=File" > $tmp/bconcmds
127 perl -Mscripts::functions -e '
128 check_min_volume_size(4096, "TestVolume002", "TestVolume005");
129 check_max_volume_size(4096, "TestVolume001", "TestVolume003", "TestVolume004")'
132 print_debug `ls -l $tmp`
138 cat <<END_OF_DATA > $tmp/bconcmds
139 @#########################################################
140 @# Display catalog settings for Pool and Media
141 @#########################################################
143 setdebug level=0 director
145 select VolumeName, ActionOnPurge FROM Media;
146 select Name, ActionOnPurge FROM Pool;
159 print_debug "Test if Pool record is ok"
160 r=`awk '/Default/ { print $4 }' $tmp/log4.out`
161 if [ "$r" != 1 ]; then
162 print_debug "ActionOnPurge on Pool record should be 1 ($r)"
166 print_debug "Test TestVolume001 if Media record is ok"
167 r=`awk '/TestVolume001/ { print $4 }' $tmp/log4.out`
168 if [ "$r" != 1 ]; then
169 print_debug "ActionOnPurge on Media record should be 1"
173 print_debug "Test TestVolume002 if Media record is ok"
174 r=`awk '/TestVolume002/ { print $4 }' $tmp/log4.out`
175 if [ "$r" != 0 ]; then
176 print_debug "ActionOnPurge on Media record should be 0"