|
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 => 65; |
| 12 |
|
12 |
|
| 13 |
BEGIN { |
13 |
BEGIN { |
| 14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
|
Lines 224-227
is($order3->{'quantityreceived'}, 2, 'Order not split up');
Link Here
|
| 224 |
is($order3->{'quantity'}, 2, '2 items on order'); |
224 |
is($order3->{'quantity'}, 2, '2 items on order'); |
| 225 |
is($order3->{'budget_id'}, $budgetid2, 'Budget has changed'); |
225 |
is($order3->{'budget_id'}, $budgetid2, 'Budget has changed'); |
| 226 |
|
226 |
|
|
|
227 |
my $nonexistent_order = GetOrder(); |
| 228 |
is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' ); |
| 229 |
$nonexistent_order = GetOrder( 424242424242 ); |
| 230 |
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); |
| 231 |
|
| 227 |
$dbh->rollback; |
232 |
$dbh->rollback; |
| 228 |
- |
|
|