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