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