|
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 |
- |
|
|