|
Lines 6-15
Link Here
|
| 6 |
use strict; |
6 |
use strict; |
| 7 |
use warnings; |
7 |
use warnings; |
| 8 |
use Data::Dumper; |
8 |
use Data::Dumper; |
|
|
9 |
use POSIX qw(strftime); |
| 9 |
|
10 |
|
| 10 |
use C4::Bookseller qw( GetBookSellerFromId ); |
11 |
use C4::Bookseller qw( GetBookSellerFromId ); |
| 11 |
|
12 |
|
| 12 |
use Test::More tests => 37; |
13 |
use Test::More tests => 38; |
| 13 |
|
14 |
|
| 14 |
BEGIN { |
15 |
BEGIN { |
| 15 |
use_ok('C4::Acquisition'); |
16 |
use_ok('C4::Acquisition'); |
|
Lines 30-35
my $supplierid = 1;
Link Here
|
| 30 |
my $grouped = 0; |
31 |
my $grouped = 0; |
| 31 |
my $orders = GetPendingOrders( $supplierid, $grouped ); |
32 |
my $orders = GetPendingOrders( $supplierid, $grouped ); |
| 32 |
isa_ok( $orders, 'ARRAY' ); |
33 |
isa_ok( $orders, 'ARRAY' ); |
|
|
34 |
|
| 35 |
my @lateorders = GetLateOrders(0); |
| 36 |
my $order = $lateorders[0]; |
| 37 |
AddClaim( $order->{ordernumber} ); |
| 38 |
my $neworder = GetOrder( $order->{ordernumber} ); |
| 39 |
is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" ); |
| 40 |
|
| 33 |
SKIP: { |
41 |
SKIP: { |
| 34 |
skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); |
42 |
skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); |
| 35 |
# diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) ); |
43 |
# diag( Data::Dumper->Dump( [ $orders ], [ 'orders' ] ) ); |
| 36 |
- |
|
|