| Lines 94-99
          my $itemnumbers = $iteminfo[0];
      
      
        Link Here | 
        
          | 94 | for my $itemnumber ( @$itemnumbers ) { | 94 | for my $itemnumber ( @$itemnumbers ) { | 
        
          | 95 |     ok($batch->add_item($itemnumber) eq 0 ) || diag "Batch->add_item() FAILED."; | 95 |     ok($batch->add_item($itemnumber) eq 0 ) || diag "Batch->add_item() FAILED."; | 
        
          | 96 | } | 96 | } | 
            
              |  |  | 97 | $batch_id=$batch->get_attr('batch_id'); | 
        
          | 97 |  | 98 |  | 
        
          | 98 | diag "Testing Batch->retrieve() method."; | 99 | diag "Testing Batch->retrieve() method."; | 
        
          | 99 | ok(my $saved_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id)) || diag "Batch->retrieve() FAILED."; | 100 | ok(my $saved_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id)) || diag "Batch->retrieve() FAILED."; | 
            
              | 100 | -  |  |  |