View | Details | Raw Unified | Return to bug 10333
Collapse All | Expand All

(-)a/t/db_dependent/Labels/t_Batch.t (-5 / +3 lines)
Lines 20-26 Link Here
20
20
21
use Modern::Perl;
21
use Modern::Perl;
22
22
23
use Test::More tests => 33;
23
use Test::More tests => 24;
24
use C4::Context;
24
use C4::Context;
25
use MARC::Record;
25
use MARC::Record;
26
use MARC::Field;
26
use MARC::Field;
Lines 101-109 is_deeply($saved_batch, $batch) || diag "Retrieved batch object FAILED to verify Link Here
101
101
102
diag "Testing Batch->remove_item() method.";
102
diag "Testing Batch->remove_item() method.";
103
103
104
for my $itemnumber ( @$itemnumbers ) {
104
my $itemnumber = @$itemnumbers[0];
105
    ok($batch->remove_item($itemnumber) eq 0) || diag "Batch->remove_item() FAILED.";
105
ok($batch->remove_item($itemnumber) eq 0) || diag "Batch->remove_item() FAILED.";
106
}
107
106
108
my $updated_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id);
107
my $updated_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id);
109
is_deeply($updated_batch, $batch) || diag "Updated batch object FAILED to verify.";
108
is_deeply($updated_batch, $batch) || diag "Updated batch object FAILED to verify.";
110
- 

Return to bug 10333