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 => 68; |
11 |
use Test::More tests => 72; |
12 |
|
12 |
|
13 |
BEGIN { |
13 |
BEGIN { |
14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
Lines 807-812
is( $neworder->{'quantityreceived'},
Link Here
|
807 |
2, 'Splitting up order received items on new order' ); |
807 |
2, 'Splitting up order received items on new order' ); |
808 |
is( $neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged' ); |
808 |
is( $neworder->{'budget_id'}, $budgetid, 'Budget on new order is unchanged' ); |
809 |
|
809 |
|
|
|
810 |
is( $neworder->{ordernumber}, $new_ordernumber, 'Split: test ordernumber' ); |
811 |
is( $neworder->{parent_ordernumber}, $ordernumbers[1], 'Split: test parent_ordernumber' ); |
812 |
|
813 |
my ( $orders ) = GetHistory( ordernumber => $ordernumbers[1] ); |
814 |
is( scalar( @$orders ), 1, 'GetHistory with a given ordernumber returns 1 order' ); |
815 |
( $orders ) = GetHistory( ordernumber => $ordernumbers[1], search_children_too => 1 ); |
816 |
is( scalar( @$orders ), 2, 'GetHistory with a given ordernumber and search_children_too set returns 2 orders' ); |
817 |
|
810 |
my $budgetid2 = C4::Budgets::AddBudget( |
818 |
my $budgetid2 = C4::Budgets::AddBudget( |
811 |
{ |
819 |
{ |
812 |
budget_code => "budget_code_test_modrecv", |
820 |
budget_code => "budget_code_test_modrecv", |
813 |
- |
|
|