Lines 8-14
use POSIX qw(strftime);
Link Here
|
8 |
|
8 |
|
9 |
use C4::Bookseller qw( GetBookSellerFromId ); |
9 |
use C4::Bookseller qw( GetBookSellerFromId ); |
10 |
|
10 |
|
11 |
use Test::More tests => 62; |
11 |
use Test::More tests => 66; |
12 |
|
12 |
|
13 |
BEGIN { |
13 |
BEGIN { |
14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
Lines 177-182
is($neworder->{'quantity'}, 2, '2 items on new order');
Link Here
|
177 |
is($neworder->{'quantityreceived'}, 2, 'Splitting up order received items on new order'); |
177 |
is($neworder->{'quantityreceived'}, 2, 'Splitting up order received items on new order'); |
178 |
is($neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged'); |
178 |
is($neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged'); |
179 |
|
179 |
|
|
|
180 |
is( $neworder->{ordernumber}, $new_ordernumber, 'Split: test ordernumber' ); |
181 |
is( $neworder->{parent_ordernumber}, $ordernumber2, 'Split: test parent_ordernumber' ); |
182 |
|
183 |
( $orders ) = GetHistory( ordernumber => $ordernumber2 ); |
184 |
is( scalar( @$orders ), 1, 'GetHistory with a given ordernumber returns 1 order' ); |
185 |
( $orders ) = GetHistory( ordernumber => $ordernumber2, search_children_too => 1 ); |
186 |
is( scalar( @$orders ), 2, 'GetHistory with a given ordernumber and search_children_too set returns 2 orders' ); |
187 |
|
180 |
my $budgetid2 = C4::Budgets::AddBudget( |
188 |
my $budgetid2 = C4::Budgets::AddBudget( |
181 |
{ |
189 |
{ |
182 |
budget_code => "budget_code_test_modrecv", |
190 |
budget_code => "budget_code_test_modrecv", |
183 |
- |
|
|