updates

[bacula/bacula] / regress / tests / bsr-read-test

diff --git a/regress/tests/bsr-read-test b/regress/tests/bsr-read-test
index 1207c0ef98b16402d9c20b48c47a156a482ab381..5d0003d11a5499fff2b570a9cc0e6a87f08c2665 100755 (executable)
--- a/regress/tests/bsr-read-test
+++ b/regress/tests/bsr-read-test
@@ -115,7 +115,7 @@ check_two_logs
 dstat=0
 
 perl -ne '
-sub check_block {   
+sub check_block {
   return unless ($last_block || $last_bsr_block);
   $nb = $last_block - $last_bsr_block;
   if ($nb > 65000) {
@@ -123,6 +123,9 @@ sub check_block {
   }
 }
 sub print_stat {
+     if ($last_bsr_addr) {
+        $last_bsr_block = $last_bsr_addr & 0xFFFFFFFF;
+     }   
      print "$last_job\nlast_bsr_block=$last_bsr_block last_block_read=$last_block\n";
      check_block();
      $last_bsr_block = $last_block=0;
@@ -135,6 +138,7 @@ if (/dircmd.c.+(JobId=\d+ job=\S+) .+client_name=.+-fd/) {
 }
 
 $last_job=$1      if /dircmd.c.+(JobId=\d+ job=\S+)/;
+$last_bsr_addr=$1  if /fd_cmds.c:.+VolAddr=\d+-(\d+)/;
 $last_bsr_block=$1 if /fd_cmds.c:.+VolBlock=\d+-(\d+)/;
 $last_block=$1     if /read_record.c.+file:block=\d+:(\d+)/;
 END {