|
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 => 64; |
11 |
use Test::More tests => 66; |
| 12 |
|
12 |
|
| 13 |
BEGIN { |
13 |
BEGIN { |
| 14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
|
Lines 822-825
is( $order3->{'quantityreceived'}, 2, 'Order not split up' );
Link Here
|
| 822 |
is( $order3->{'quantity'}, 2, '2 items on order' ); |
822 |
is( $order3->{'quantity'}, 2, '2 items on order' ); |
| 823 |
is( $order3->{'budget_id'}, $budgetid2, 'Budget has changed' ); |
823 |
is( $order3->{'budget_id'}, $budgetid2, 'Budget has changed' ); |
| 824 |
|
824 |
|
|
|
825 |
my $nonexistent_order = GetOrder(); |
| 826 |
is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' ); |
| 827 |
$nonexistent_order = GetOrder( 424242424242 ); |
| 828 |
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); |
| 829 |
|
| 825 |
$dbh->rollback; |
830 |
$dbh->rollback; |
| 826 |
- |
|
|