|
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 => 66; |
11 |
use Test::More tests => 68; |
| 12 |
|
12 |
|
| 13 |
BEGIN { |
13 |
BEGIN { |
| 14 |
use_ok('C4::Acquisition'); |
14 |
use_ok('C4::Acquisition'); |
|
Lines 840-843
is( $order3->{'quantityreceived'}, 2, 'Order not split up' );
Link Here
|
| 840 |
is( $order3->{'quantity'}, 2, '2 items on order' ); |
840 |
is( $order3->{'quantity'}, 2, '2 items on order' ); |
| 841 |
is( $order3->{'budget_id'}, $budgetid2, 'Budget has changed' ); |
841 |
is( $order3->{'budget_id'}, $budgetid2, 'Budget has changed' ); |
| 842 |
|
842 |
|
|
|
843 |
my $nonexistent_order = GetOrder(); |
| 844 |
is( $nonexistent_order, undef, 'GetOrder returns undef if no ordernumber is given' ); |
| 845 |
$nonexistent_order = GetOrder( 424242424242 ); |
| 846 |
is( $nonexistent_order, undef, 'GetOrder returns undef if a nonexistent ordernumber is given' ); |
| 847 |
|
| 843 |
$dbh->rollback; |
848 |
$dbh->rollback; |
| 844 |
- |
|
|