messages
@$out ${cwd}/tmp/log1.out
label storage=File volume=TestVolume001
-run job=$JobName yes
+run level=full job=$JobName yes
wait
messages
quit
run_bconsole
-check_two_logs
-
stop_bacula
awk '/Rate:/ { if ($2 > 2500 && $2 < 3500) { print "OK" }
a=`grep OK $tmp/res | wc -l`
if [ $a -ne 2 ]; then
- print_debug "ERROR: problem with backup or restore speed"
+ print_debug "ERROR: problem with backup or restore speed on bacula-fd.conf"
fi
+sed -i 's/MaximumBandwidth.*//g' $conf/bacula-fd.conf
+
+$bperl -e 'add_attribute("$conf/bacula-dir.conf", "MaximumBandwidth", "3MB/s", "Job", "$JobName")'
+
+cat <<END_OF_DATA >${cwd}/tmp/bconcmds
+@$out /dev/null
+messages
+@$out ${cwd}/tmp/log1.out
+run level=full job=$JobName yes
+wait
+messages
+quit
+END_OF_DATA
+
+run_bacula
+
+cat <<END_OF_DATA >${cwd}/tmp/bconcmds
+@#
+@# now do a restore
+@#
+@$out ${cwd}/tmp/log2.out
+restore where=$tmp select all done
+yes
+wait
+messages
+quit
+END_OF_DATA
+
+run_bconsole
+
+stop_bacula
+
+check_two_logs
+
+awk '/Rate:/ { if ($2 > 2500 && $2 < 3500) { print "OK" }
+ else { print "ERROR" }}' $tmp/log1.out > $tmp/res
+
+awk '/Rate:/ { if ($2 > 2500 && $2 < 3500) { print "OK" }
+ else { print "ERROR" }}' $tmp/log2.out >> $tmp/res
+a=`grep OK $tmp/res | wc -l`
+if [ $a -ne 3 ]; then
+ print_debug "ERROR: problem with backup or restore speed on bacula-dir.conf"
+fi
end_test