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 |
- |
|
|