Bug 11111: UT: SearchOrders returns keys basketgroupid and basketgroupname
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
This commit is contained in:
parent
7962819144
commit
7d2f975f3b
1 changed files with 4 additions and 1 deletions
|
@ -8,7 +8,7 @@ use POSIX qw(strftime);
|
|||
|
||||
use C4::Bookseller qw( GetBookSellerFromId );
|
||||
|
||||
use Test::More tests => 60;
|
||||
use Test::More tests => 62;
|
||||
|
||||
BEGIN {
|
||||
use_ok('C4::Acquisition');
|
||||
|
@ -87,6 +87,9 @@ my $orders = SearchOrders({
|
|||
isa_ok( $orders, 'ARRAY' );
|
||||
is(scalar(@$orders), 3, 'retrieved 3 pending orders');
|
||||
|
||||
ok( exists( @$orders[0]->{basketgroupid} ), "SearchOrder: The basketgroupid key exists" );
|
||||
ok( exists( @$orders[0]->{basketgroupname} ), "SearchOrder: The basketgroupname key exists" );
|
||||
|
||||
ok( GetBudgetByOrderNumber($ordernumber1)->{'budget_id'} eq $budgetid, "GetBudgetByOrderNumber returns expected budget" );
|
||||
|
||||
C4::Acquisition::CloseBasket( $basketno );
|
||||
|
|
Loading…
Reference in a new issue