@@ -, +, @@ --- t/db_dependent/Labels/t_Batch.t | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) --- a/t/db_dependent/Labels/t_Batch.t +++ a/t/db_dependent/Labels/t_Batch.t @@ -20,7 +20,7 @@ use Modern::Perl; -use Test::More tests => 33; +use Test::More tests => 24; use C4::Context; use MARC::Record; use MARC::Field; @@ -101,9 +101,8 @@ is_deeply($saved_batch, $batch) || diag "Retrieved batch object FAILED to verify diag "Testing Batch->remove_item() method."; -for my $itemnumber ( @$itemnumbers ) { - ok($batch->remove_item($itemnumber) eq 0) || diag "Batch->remove_item() FAILED."; -} +my $itemnumber = @$itemnumbers[0]; +ok($batch->remove_item($itemnumber) eq 0) || diag "Batch->remove_item() FAILED."; my $updated_batch = C4::Labels::Batch->retrieve(batch_id => $batch_id); is_deeply($updated_batch, $batch) || diag "Updated batch object FAILED to verify."; --