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 => 60; |
11 |
use Test::More tests => 62; |
12 |
|
12 |
|
13 |
BEGIN { |
13 |
BEGIN { |
14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
Lines 87-92
my $orders = SearchOrders({
Link Here
|
87 |
isa_ok( $orders, 'ARRAY' ); |
87 |
isa_ok( $orders, 'ARRAY' ); |
88 |
is(scalar(@$orders), 3, 'retrieved 3 pending orders'); |
88 |
is(scalar(@$orders), 3, 'retrieved 3 pending orders'); |
89 |
|
89 |
|
|
|
90 |
ok( exists( @$orders[0]->{basketgroupid} ), "SearchOrder: The basketgroupid key exists" ); |
91 |
ok( exists( @$orders[0]->{basketgroupname} ), "SearchOrder: The basketgroupname key exists" ); |
92 |
|
90 |
ok( GetBudgetByOrderNumber($ordernumber1)->{'budget_id'} eq $budgetid, "GetBudgetByOrderNumber returns expected budget" ); |
93 |
ok( GetBudgetByOrderNumber($ordernumber1)->{'budget_id'} eq $budgetid, "GetBudgetByOrderNumber returns expected budget" ); |
91 |
|
94 |
|
92 |
C4::Acquisition::CloseBasket( $basketno ); |
95 |
C4::Acquisition::CloseBasket( $basketno ); |
93 |
- |
|
|