Lines 33-42
my $orders = GetPendingOrders( $supplierid, $grouped );
Link Here
|
33 |
isa_ok( $orders, 'ARRAY' ); |
33 |
isa_ok( $orders, 'ARRAY' ); |
34 |
|
34 |
|
35 |
my @lateorders = GetLateOrders(0); |
35 |
my @lateorders = GetLateOrders(0); |
36 |
my $order = $lateorders[0]; |
36 |
SKIP: { |
37 |
AddClaim( $order->{ordernumber} ); |
37 |
skip 'No Late Orders, cannot test AddClaim', 1 unless @lateorders; |
38 |
my $neworder = GetOrder( $order->{ordernumber} ); |
38 |
my $order = $lateorders[0]; |
39 |
is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" ); |
39 |
AddClaim( $order->{ordernumber} ); |
|
|
40 |
my $neworder = GetOrder( $order->{ordernumber} ); |
41 |
is( $neworder->{claimed_date}, strftime( "%Y-%m-%d", localtime(time) ), "AddClaim : Check claimed_date" ); |
42 |
} |
40 |
|
43 |
|
41 |
SKIP: { |
44 |
SKIP: { |
42 |
skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); |
45 |
skip 'No relevant orders in database, cannot test baskets', 33 unless( scalar @$orders ); |
43 |
- |
|
|