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 => 63; |
11 |
use Test::More tests => 64; |
12 |
|
12 |
|
13 |
BEGIN { |
13 |
BEGIN { |
14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
Lines 90-95
is(scalar(@$orders), 3, 'retrieved 3 pending orders');
Link Here
|
90 |
ok( exists( @$orders[0]->{basketgroupid} ), "SearchOrder: The basketgroupid key exists" ); |
90 |
ok( exists( @$orders[0]->{basketgroupid} ), "SearchOrder: The basketgroupid key exists" ); |
91 |
ok( exists( @$orders[0]->{basketgroupname} ), "SearchOrder: The basketgroupname key exists" ); |
91 |
ok( exists( @$orders[0]->{basketgroupname} ), "SearchOrder: The basketgroupname key exists" ); |
92 |
ok( exists( @$orders[0]->{authorisedby} ), "SearchOrders: The authorised key exists (bug 11777)" ); |
92 |
ok( exists( @$orders[0]->{authorisedby} ), "SearchOrders: The authorised key exists (bug 11777)" ); |
|
|
93 |
# Regression test for bug 11755 |
94 |
ok( exists( @$orders[0]->{booksellerid} ), "SearchOrder: The booksellerid key exists" ); |
93 |
|
95 |
|
94 |
ok( GetBudgetByOrderNumber($ordernumber1)->{'budget_id'} eq $budgetid, "GetBudgetByOrderNumber returns expected budget" ); |
96 |
ok( GetBudgetByOrderNumber($ordernumber1)->{'budget_id'} eq $budgetid, "GetBudgetByOrderNumber returns expected budget" ); |
95 |
|
97 |
|
96 |
- |
|
|